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ABSTRACT 


Subsonic  Kernel  function,  transonic  box,  and  supersonic  box  methods 
for  computing  unsteady  aerodynamics  are  applied  to  the  problem  of  inter¬ 
action  of  a  general  trapezoidal  wing  with  a  downstream  rectangular  control 
surface  lying  in  the  wake  of  the  wing.  The  unsteady  aerodynamic  forces 
are  related  to  a  set  of  collocation  stations  through  <t  series  of  matrix 
transformation-,  interpolations,  and  differentiations.  The  resulting 
matrix  is  a  set  of  aerodynamic  influence  coefficients  (AICs)  that  are 
directly  applicable  to  flutter  snalysis. 

The  transformation  of  the  unsteady  aerodynamics  into  AICs  is  pre¬ 
sented  as  a  separate  discussion;  followed  by  discussions  for  the  develop¬ 
ments  of  analytical  techniques  for  each  flifht  regime.  The  analytical 
developments  and  a  discussion  of  the  basic  single-planar- surface  are 
presented,  followed  by  the  complete  two-surface  solutions  for  the  general 
aerodynamic  forces.  Each  of  the  three  numerical  methods  is  developed  by 
detailing  the  complete  set  of  equations  necessary  to  compute  airloads  on 
the  configurations  considered.  A  computer  program  to  determine  the  AIC 
matrix  for  each  flight  regime  is  presented  with  a  complete  discussion  of 
usage  and  logical  flow.  Also  included  are  program  listing^;  flow  charts 

*  i 

and  sample  input  and  output  problems. 


ill 


PART  V  -  SECTION  A 


TECHNICAL  DISCUSSION  OF  THE  TRANSONIC 
BOX  METHOD 


When  the  flight  speed  approaches  the  acoustic  speed  (i.e,,  transonic 
flow),  the  Mach  number  Is  near  unity  and  Equation  it.  1  can  be  rewritten 


4>yy-'  ^Z2'MZ(2ik4»x  -k24>) 


(5.1) 


which  is  valid  according  tc  Reference  6  if  k»(M-l|.  Using  this  version  of 

the  linearized  flow  equation  leads  to  a  similarity  rule  in  transonic  flow. 

Air  loads  for  Mach  numbers  near  unity  may  be  computed  by  a  transformation  of 

the  geometry  and  flow  field  to  the  equivalent  problem  at  M*l.  The  absence  of 

2 

the  <J>  term  because  of  (3  being  of  small  order  restricts  the  flow  to  one  that 

XX 

has  no  variation  in  local  Mach  number  along  the  surface.  This  restriction 
supplements  the  thin  airfoil  assumptions  previously  used  in  linearization.  The 
condition  can  be  simply  stated  as 

k  »  f  1  - Ml  j 

where  M^  is  the  local  Mach  number  over  the  surface. 

A  pulsating  doublet  placed  in  the  M*1  free  stream  with  the  axis  parallel 
to  the  z  axis  is  a  solution  to  Equation  5; l  and  produces  a  velocity  potential  at 
(x,  y,  z)  given  by 


ifc  (z-C  ) 


exp 


(y-r,)2  +  {z-l)Z  j 

(x-S) 


(5.2) 


where  the  doublet  is  positioned  at  the  point  (£,»!>£).  The  doublet  in  transonic 
flow  has  no  influence  at  points  upstream  of  the  line  x*=£.  Consequently,  the 
potential  Is  zero  in  that  region.  The  velocity  potential  due  to  a  doublet  is 
discontinuous  at  the  point  (£,n,£). 

That  Equation  5.2  satisfies  equation  5.1  may  be  checked  by  substitution. 
Furthermore,  a  solution  to  5.1  may  be  obtained  by  superposition.  This  solution 
will  be  represented  in  the  form 


n )  <yx,y,z, $»n.°)  <*£<1^  ’ 

and  It  may  be  further  shown  that  in  the  limit  as  z 

4>(x,y) 

206 


(5.3) 


A  sheet  of  these  doublets  covering  the  wing,  wake,  and  tail 
will  then  provide  the  required  lifting  antisymmetry  and  jump  in  potential 
between  upper  and  lower  sides  when  the  doublet  strength  function  is  determined 
by  the  appropriate  boundary  conditions.  The  velocity  potential  required  to 
produce  the  necessary  vertical  velocity  at  a  point  (x,y)  on  the  wing  can  be 
determined  by  application  of  the  tangential  flow  boundary  condition 


-If  '*>{£»  n)  ( x-t,  y-n  )  dr, 

JJw 


(5.4) 


where 


,  e  »  lirn  1  ±  ik  1  l  .  (v-:i)2'<] 

*<*-  V""*,-,  z  ®D  =  2ir  ("i<TF  P  ’ 

8d>n 

The  function  is  in  effect  the  limit  as  *.-*0  of  when£*  0.  It  is, 
consequently,  the  doublet  downwash  influence  function  when£sx.  The  zero 


pressure  jump  condition  is  written  here  for  the  wake  velocity  potential  in 
terms  of  the  wing  trailing  edge  quantities 


Wake 


■^7- 


-ik  (x-:<v/TE) 


(5.5) 


and  further  matching  of  the  tangential  flpw  condition  gives  the  velocity 
potential  required  to  produce  downwash  at  a  similar  point  on  the  tail  as 

*,f  s  I  j  n)  y-n)  dldn  (5^ 

T  r  Wake  +  W 

where  the  region  of  integration  is  over  the  entire  doublet  sheet  forward  of 
the  line  £=x  (see  Reference  12). 

Equations  5.4,  5.5.  and  5.6  then  constitute  a  system  of  equations  whereby 

the  potential  jump  may  be  determined. 

Y 


Figure  5.1  Transonic  Box  Overlay  for  a  Typical  Configuration 

at  Sonic  Mach  Number 
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To  compute  the  velocity  potential  distribution  for  each  Much  number  near 
unity  and  reduced  frequency  greater  than  aero,  following  the  approach  developed 
in  Reference  1  ,  we  overlay  the  two  surfaces  and  intervening  wake  with  a  system 
of  square  boxes  of  relative  length  A  adjusted  so  that  box  centers  lie  along  the 
x  axis  and  the  wing  trailing  edge  anti  so  that  box  edges  lie  along  the  y  axis.  A 
typical  box  overlay  on  a  trapesoidal  wing,,  wake,  and  downstream  control  surface 
is  shown  in  Figure  5.1.  Only  boxes  that  have  their  centers  within  the  respective 
regions  are  considered  in  this  development. 

If  the  potential  function  4(x,y)  approximated  by  a  function  which  is 
constant  In  each  of  the  boxes  and  equal  to  the  value  at  \cs  center  in  the  wake 
region,  the  downwash  condition  on  the  wing  and  control  surfaces  is  matched  at 
the  center  of  each  box. 

The  boxes  will  be  designated  by  n  and  v  in  the  chordwlse  direction  and  by 
m  and  p  in  the  spanwise  direction.  Then  for  (n,  m)  on  the  wing 


w  * 
n,  m 


£  L^v  A 

v  |x  r 


(n-v, }  m-p| ) 


for  (n,m)  on  wake, 


and  for  (n,m)  on  T, 


♦»,R,**W 


TE 


m 


* 

P 

l 


exp  -ik  (n-n^y 


(v,p)  on  W,  T,  and  wake, 


(5.7) 

(5.8) 


w  * 
n,  m 


EE 

»  |i 


9  A  (n-v,  |m-nJ) 
v,  p.  , 


(5.9) 


where  n  ■ 
and  vSn. 


x/A,  m  -  y/A,  v«£/A,  and  p*  q/A  ere  coordinates  of  the  box  centers 
The  aerodynamic  influence  coefficients  (AIC’s)  are  given  by 


A 


(n-v,|n»-n 


l)s  (x-6t  y-^)  dfc  dq 

abr°& 


(5.10) 


and  are  computed  for  each  pair  of  relative  box  locations  by  integration  of  the 
doublet  influence  function,  ij<»  over  that  portion  of  the  sending  box  centered 
at  ( w,  M-)  that  influences  the  receiving  point  (n,m).  Approximation  formulas 

i 

and  integration  techniques  for  evaluation  of  the  transonic  AlCs  are  developed 
In  Rofcsi'enco  IP . 

Solutions  to  Equation  5.Det  each  box  center  can  be  obtained  most  efficiently 
by  the  separation  of  the  terms  in  the  nth  row  from  the  remainder  of  the  sum  to 
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obtain  the  smaller  system  of  equations  for  the  wing,  W, 


2>(o. 


m 


I) 


=  w 


n,  p  n,m 


-  A(n* 
v<n  p 


v,| 


(5.11) 


where  the  AlC'a  A(o,  |m-pj  )  represent  the  effect  of  every  other  box  in  the  nth 
row  on  th.:  mth  box,  and  the  double  summation  gives  the  contribution  to  ".he 
downwash  at  the  box  center  of  all  the  boxes  located  in  ail  the  upstream  rows,. 

i 

Since  the  downwash  is  directly  calculable  from  tangential  flow  considerations 
fixation  5.4) ,  and  since  the  velocity  potential  to  be  computed  at  tue  box  center 
is  contained  in  a  sum,  Equation  5,11  has  to  be  applied  to  the  entire  nth  row  to 
solve  for  the  velocity  potentials  at  all  box  centers  in  that  row  simultaneously. 
The  procedure  would  build  up  the  velocity  potential  distribution  over  the  wing 
one  row  at  a  time  until  the  trailing  edge  row  as  completed.  The  numerical 
complexity  is  not  increased,  however,  by  a  large  .-.umber  of  box  rows  over  the 
configuration  because  the  influence  coming  from  more  than  15  rows  away  is 
negligible.  Therefore,  the  AIC's  for  n-w>15  are  not  needed.  • 

With  the  wing  trailing  edge  velocity  potential  values  now  available,  the 
distribution  is  continued  downstream  in  the  wake  region  for  all  boxes  by  si.nply 
employing  Equation  5.8  for  each  box.  This  method  adequately  determines  the 
velocity  potential  distribution  between  the  wing  trailing  edge  and  tall  leading 
edge  under  the  assumptions  that  no  rolling  up  of  wing  tip  vortices  occurs.  The 
downwash  in  this  region  is  not  readily  computed,  but  fortunately  is  not  required 
in  subsequent  computations. 

To  compute  the  velocity  potential  distribution  on  the  tail,  rewrite 
Equation  5.9  in  the  smaller  system  of  equations  with  the  velocity  potentials 
In  the  nth  row  segregated  from  the  upstream  influence.  For(n,m)  on  the  tail,  T, 

E  Mo,  *  ■  w  -£  E  A(n-v,  |m-p|)4>y  (5.12) 

p  * K  *  v<n  p 

who iv  iho  u*nm»  ore  defined  as  above.  Hero  again  the  velocity  potentials  for 
(lie  entire  nth  row  on  the  tail  are  computed  at  once,  but  with  the  double  suama- 
Hnn  now  extending  at  most  15  rows  upstream.  This  upstream  influence  includes 
contributions  not  only  from  the  tail  itself,  but  also  from  the  wake  and  wing 
regions  included  In  the  fifteen  rows. 


PART  V  -  SECTION  B 

TRANSONIC  AIC  COMPUTER  PROGRAM  DESCRIPTION 


A  FORTRAN  IV  computer  program  la  presented  which  calculates 
transonic  unsteady  aerodynamic  influence  coefficients  for  a  variety  of 
siagle  or  tandem  lifting  surfaces.  The  computer  solution  is  based  on  a 
doublet  superposition  approach,  and  a  square  box  approximation  is  employed 
to  reduce  the  integral  equations  to  sums  of  constant  values  times 
doublet  strengths  at  box  centers  times  Integrals  dependent  upon  relative 
position,  Mach  number,  and  reduced  frequency. 

The  various  tandem  configurations  which  can  be  analyzed  are  shown 
in  Figure  5,2.  Also  it  is  possible  to  analyze  a  single  surface  (the 
wing) .  The  aerodynamic  surfaces  are  assumed  to  have  a  plane  of  sy.mnetry 
parallel  to  the  free  stream  flow.  The  upstream  surface  must  have  an 
unswept  trailing  edge  and  the  rectangular  trailing  surface  must  have  the 
same  spanwise  dimension  as  the  trailing  edge  of  the  wing. 

The  program  allows  up  to  40  AIC  control  points.  The  AIC  stations 
must  satisfy  the  following  requirements: 

(1)  The  chordwise  rows  must  be  parallel  to  the  flow  stream. 

(2)  The  chordwise  rows  on  a  surface  must  have  the  same  number  of 
control  points. 

(3)  The  control  points  in  each  spanwise  row  must  have  tha  same 
fractional  chordwise  location. 

(4)  The  origin  for  the  AIC  station  coordinates  and  the  wing  and 
control  surface  coordinates  must  be  at  the  leading  edge  root 
of  the  wing. 

Examples  of  acceptable  AIC  control  point  patterns  for  the  tran¬ 
sonic  program  arc  illustrated  in  Figure  5.3. 
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FIGURE  5.2  TANDEM  COPfcANAR  CONFIGURATIONS  AT  TRANSONIC  MACH  NUMBERS 


The  transonic  program  is  presently  limiw..'  to  45  boxes  on  the 
aerodynamic  surfaces.  This  limitation  does  not  ir elude  the  diaphragm 
boxes  in  the  gap  region.  The  restriction  results  from  performing  all 
operations  on  the  computer  in  core  without  utilizing  peripheral  tape 
and  disc  units. 

The  user  specifies  the  number  of  boxes  along  the  wing  root  and 
the  computer  program  determines  the  size  of  the  boxes  and  overlay  pattern 
which  will  cover  the  planform.  The  box  centers  of  the  first  chordwise 
row  will  lie  along  the  root  of  the  surfaces.  The  last  spanwise  row  of 
boxes  on  the  wing  will  have  their  centers  on  the  trailing  edge.  If  NBW 
is  selected  by  the  user  as  the  number  of  boxes  along  the  wing  root  and 
if  the  wing  root  dimension  is  2<b.,  then  the  box  size  will  be  A  x  A 
where  A*  2b  /  (NBW  -  .5).  Knowing  the  size  of  the  boxes  and  the  planform 
geometry,  the  user  can  estimate  if  the  45  box  restriction  is  satisfied. 

An  example  of  a  typical  box  overlay  is  shown  in  Figure  5.4. 

The  transonic  AIC  computer  program  consists  of  a  main  program 
(MAIN)  and  20  subroutines  and  function  subprogram.  Execution  begins 
with  MAIN  calling  subroutine  DAIN  which  reads  the  input  data.  Control 
then  passes  into  a  Mach  number  loop  where  a  test  is  made  to  determine  if 
the  Mach  number  satisfies  the  criterion  Jm  -l.Oj  <  0.05.  Subroutine 
CODE  is  called  to  approximate  the  surface  and  gap  regions  with  a  sonic 
box  overlay.  The  output  subroutine  POUT  is  called  and  the  input  flight 
conditions,  geometry,  and  map  of  the  sonic  box  overlay  are  printed.  The 
AIC  station  locations  are  also  printed  if  the  option  is  exercised.  A 
check  is  made  in  MAIN  to  determine  if  the  number  of  boxes  on  the  wing 
and  control  surface  docs  not  exceed  45. 


The  subroutine  TRAMP  ib  called  by  MAIN  to  generate  the  sub¬ 
stantial  derivative  matrix  M  The  £#3  matrix  relates  the  Mach  boxes 
on  the  surfaces  to  the  AIC  stations  and  serves  as  a  substantial 
derivative  operator.  Subroutines  called  by  TRAMP  are  CMAT,  SMAT,  THAT, 

BMAT,  RMAT,  and  MINV. 

Control  passes  into  the  frequency  loop  and  a  test  is  made  to 
determine  that  a  non-zero  frequency  or  reduced  frequency  is  being  considered. 
Subroutine  P0T2H  is  called  to  compute  in-plane  velocity  potential  influence 
coefficients  for  the  reduced  frequency.  These  coefficients  are  dependent 
only  on  the  relative  position  of  the  boxes,  the  Mach  number  and  reduced 
frequency. 

The  main  program  now  passes  into  a  loop  which  examines  each  box 
and  for  boxes  on  the  surfaces,  the  subroutine  PHIB  is  called  to  form  the 
product  of  velocity  potentials  computed  for  boxes  within  the  zone  of 
influences  times  the  appropriate  velocity  potential  Influence  coefficient. 

The  Influence  of  each  box  on  the  other  boxes  is  constructed  and 
the  resulting  system  of  simultaneous  complex  equations  is  solved  by  the 
subroutine  MSIMEC  to  determine  the  velocity  potential  at  box  centers. 

The  velocity  potentials  are  converted  to  pressure  through  a  substantial 
derivative  operator  constructed  by  subroutine  SD2.  Multiplying  pressure 
by  the  box  area  yields  the  force  at  each  box  center  on  the  surfaces. 

These  forces  are  transferred  to  the  AIC  stations  through  static  consider- 

i 

ations  thereby  forming  the  AIC  matrix.  This  operation  is  performed  by 
subroutine  FORCE.  The  output  subroutine  POUT  is  called  to  print  the  AIC 
matrix. 


1.0  PROCESSING  REQUIREMENTS 

The  input  and  output  files  used  by  the  program  are  05  and  06, 
respectively.  All  read  and  write  statements  are  contained  in  MAIN, 
POUT,  and  GAIN.  Peripheral  tape  and  disc  inputs  are  not  used  by  the 
program.  Approximately  40,000  cells  of  core  storage  is  required. 

A  standard  input  form  of  six  12-column  fields  per  card  is  used 
by  the  program.  Floating  point  numbers  (6E12.5  format)  may  lie 
anywhere  within  the  appropriate  field  but  fixed  point  numbers  (6112 
format)  must  be  right  adjusted.  Detailed  instructions  for  data  input 
are  given  and  liscings  of  data  cards  for  sample  problems  are  provided. 


2.0  INPUT  INSTRUCTIONS 


Instructions  for  preparing  input  data  for  the  transonic  AIC 
computer  program  are  presented  here.  The  field  location  and  format 
for  each  quantity  is  specified.  Any  ss*.:  of  units  may  be  used  for 
geometric  dimensions  and  acoustic  velocity  as  long  as  they  are  consistent, 
e.g.,  if  inches  is  used  for  length,  then  the  acoustic  velocity  must 
have  dimensions  of  inches  per  second .  Ihe  required  data  and  the  sequence 
in  which  the  information  is  entered  is  as  follows: 

1.  Streamwisc  Coordinates  (6E12.5  format) 


Column 

i- 12 

13-24 

25-  3* 

-_r- 
„  L. 

j  49-60 

61-72  ! 

Name 

X(l) 

X<2) 

*0) 

r 

1 

X(<) 

I  X(3) 

J 

Item 

(1) 

(2) 

(3) 

(4) 

i  (5> 

1 

i 

_ i 

(1)  X(l)  Wing  root  leading  edge  coordinate 

(2)  X(2)  Wing  tip  leading  edge  coordinate 

(3)  X(3)  Wing  trailing  edge  coordinate 

(4)  X(4)  Control  surface  leading  edge  coordinate 

(3)  X(5)  Control  surface  trailing  edge  coordinate 

A  sic.-’lc  surface,  the  wing,  may  be  analyzed  by  setting  X(4)  and  X(5) 
equal  to  X(3).  The  various  configurations  are  generated  as  shown  in 
Table  5.1  .  The  origin  for  the  planform  and  AIC  station  coordinates 
must  bo  at  the  leading  edge  root  of  the  wing,  therefore  X(l)  and  Y(l), 
described  ne low,  must  always  be  zero. 

2.  Spmiwim-  Coordinates  and  Acoustic  Velocity  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

!  49-60 

61-72 

Name 

V(D 

Y<2) 

Y(3) 

SOUND 

i 

It ‘”ii 

(D 

U)_ . 

(3) 

(4) 

1 . . 

(1)  Y(l)  Wing  root  spanwise  coordinate 

(2)  Y(2)  Wing  leading  edge  spanwise  coordinate 

(3)  Y(3)  Wing  (and  control  surface)  tip  spanwise  coordinate 

(4)  SOUND  Speed  oi  sound  at  altitude  for  which  analysis  is  performed 


TO 


TABJ.E  3.1  OPTIONAL  CONFIGURATIONS 


CHORDWISE 

SPANWISE 

CONFIGURATION 

COORDINATE 

COORDINATE 

X(l)  -  0.0 

Y (1)  =  0.0 

X(2)  -  0.0 

Y(2)  =*  0.0 

RECTANGULAR 

X(3)  >  0.0 

X(4)  *  X(3) 

X(5)  *  X(4) 

Y(3)  >  0.0 

X(l)  -  0.0 

Y(l)  *  0.0 

X(2)  >  0.0 

Y (2)  *  0.0 

X(3)  -  X)2) 

Y(3)  >  0.0 

DELIA 

X(4)  *  X(3) 

X(5)  5  X(4) 

X(l)  -  0.0 

Y(l)  =  0.0 

X(2)  >  0.0 

Y (2)  >  0.0 

TRAPEZOIDAL 

X(3)  *  X(2) 

Y(3)  >  Y(2) 

X(4)  *  X(3) 

X(5)  2  X(4) 

X(l)  -  0.0 

Y(l)  -  0.0 

X(2)  >X(1) 

Y (2)  >  0.0 

TRAPEZOIDAL  (CROPPED) 

>:(3)  >  X(2) 

X(4)  5  X(3) 

X(5)  3X(4) 

Y(3;  >  Y (2) 

X(l)  =  0.0 

Y ( 1 )  =  0.0 

X(2)  >  0.0 

Y(2)  -  0.0 

DELTA  (CROPPED) 

X(3)  >  X(2) 

X(4)  §  X(3) 

Y(3)  >  Y(2) 

General  Information  (6112  format) 


Column 

1-12 

13-24 

25-36 

37-48 

j  49-60 

61-72 

Name 

NMACH 

KF  , 

i  NFREQ 

NBW 

LPUNCH 

Item 

(1) 

(2) 

(3) 

(4) 

(5) 

- - -j 

. 

( 1 )  NMACH 

(2)  KF 


(3>  NFREQ 

(4)  NBW 

(5)  LPUNCH 


Number  of  Mach  numbers: (Maximum  6) 

Option  to  input  frequencies  or  reduced  frequencies: 
KF  *  0  frequencies 
KF  *  1  reduced  frequencies 

Number  of  frequencies  or  reduced  frequencies  at  each 
Mach  number  (maximum  10) 

Number  of  chordwise  boxes  on  wing 
Option  to  punch  AICs  on  cards: 


LPUNCH  *  0 
LPUNCH  *=  1 
LPUNCH  =  2 
LPUNCH  -  3 

LPUNCH  *  4 


no  punched  output 

punch  AICs  for  wing  only 

punch  AICs  for  control  surface  only 

punch  individual  AIC  matrix  for  wing 
and  control  surface 

punch  total  AIC  matrix  for  wing-control 
surface  combination 


The  AIC  matrices  are  punched  by  rows  with  a  1P6E12.5  format, 
row  of  an  AIC  matrix  begins  on  a  new  card. 


Each 


4.  Mach  Numbers  (6E12.5  format) 


Column 

1-12 

13-24 

24-36 

!  37-48 

49-60 

61-72  | 

Name 

FMACH(l) 

FMACH(2) 

FMACH93) 

1 

FMACH (4) 

FMACH (5) 

FMACH(6)| 

Item 

(1) 

1  (2) 

(3) 

W 

(5) 

1 .  m _ ; 

(1)  FMACH  (1)  Mach  number 

(2)  FMACH  (2)  Mach  number 


(NMACH)  FMACH  (NMACH)  Mach  number 

Enter  NMACH  values  of  Mach  number  (see  Part  3,  Item  1).  Mach  numbero 
must  be  in  the  range  0.95  to  1.05. 


5.  Frequencies  (or  Reduced  Frequencies)  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

1  FREQ(l) 

FREQ (2) 

FREQ(3) 

FREQ (4) 

FREQ (5) 

FREQ(6) 

Item 

1  (1) 

!  (2) 

(3) 

(4) 

_ L5) _ 

_ 

Input  NFREQ  values  of  frequency  or  reduced  frequency  (see  Part  3,  Items 
2  and  3) .  Reduced  frequency  is  defines  as  k^  **  —j — c  where  br  is  the 
serai-chord  of  the  wing  root,  U  is  the  free  stream  velocity  and  w  j.s 
the  oscillatory  angular  frequency  in  radians/sec 


(1)  I'KFw  (I) 

(2)  FREQ  (2) 


frequency  (CPS)  or  kf 
frequency  (CPS)  or  k^ 
•  •  • 


(NFREQ)  FREQ  (NFREQ)  frequency  (CPS)  or  kr 


M  NFREQ  *6,  continue  input  of  FREQ  (7)  to  FREQ  (NFREQ)  on  new  card. 


6.  Number  of  AIC  Stations  (6112  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

NXWING 

NYWING 

NXCS 

NYCS 

Item 

(1) 

(2) 

(3) 

('♦) 

(1)  NXWING 

(2)  NYWING 

(3)  NXCS 


(4)  NYCS 


Number  of  chordwise  AIC  collocation  stations  on  wing 
Number  of  spanwise  AIC  collocation  stations  on  wing 
Number  of  chordwise  AIC  collocation  stations  on 
control  surface.  Set  equal  to  zero  if  analysis  is 
for  wing  only 

Number  of  spanwise  AIC  collocation  stations  on 
control  surface.  Set  equal  to  zero  if  analysis  is 
for  wing  only. 


7.  Spanwise  Location  of  AIC  Statioi.  i  on  Wing  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

YAIC(1 ,  W) 

YAIC (2, W) 

YAIC (3, W) 

YAIC (4, W) 

YAIC(5,W) 

YAIC(6,W) 

Item 

(1) 

'2) 

(3) 

(4) 

.  (5) 

L J 

(1)  YAIC(1,W)  Spanwise  coordinate  of  first  row  of  AIC  collocation 

stations  on  wing 

(2)  YAIC(2,W)  Spanwise  coordinate  of  second  row  of  AIC  collocation 

stations  on  wing 


(NYWING)  YAIC  (NYWING,  W)  Spanwise  coordinate  of  last  row  of  AIC 

collocation  stations  on  wing 

AIC  station  rows  are  numbered  from  root  to  tip  of  surface.  If 
NYWING  >6,  continue  input  on  new  card(s). 
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8.  Spanwise  Location  of  AIC  Stations  on  Control  Surface  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

YAIC(1,CS) 

YAIC(2,CS) 

YAIC(3,CS) 

YAIC(4,CS) 

YAIC(5,CS) 

YAIC(6,CS) ! 

Item 

_(l) 

(2) 

(3) 

(4) 

(5) 

(6)  i 

(1)  YAIC(1,CS)  Spanwise  coordinate  of  first  row  of  AIC  collocation 

stations  on  control  surface 

(2)  YA1C(2,CS)  Spahwlse  coordinate  of  second  row  of  AIC  collocation 

stations  on  control  sur lace 


(NYCS)  YAIC(NYCS,CS)  Spanwise  coordinate  of  last  row  of  AIC  collocation 

stations  on  control  surface 

Omit  this  input  if  only  the  wing  is  analyzed,  For  NYCS  6,  continue 
input  on  new  card(s).  AIC  station  rows  are  numbered  from  root  to 
tip  of  surface. 

9.  Chordwisc  Location  of  AIC  Stations  on  Wing  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60  i 

i  61-72 

Name 

XAIC(W, 1 , 1) 

XAIC(W, 1,2) 

XAIC(W, 1,3) 

•  •  • 

•  •  • 

•  •  • 

Item 

(1) 

(2) 

_ 

(4) 

...  <5) 

(6).. 

(1)  XAIC(W,1,1)  Streamwise  coordinate  of  first  AIC  collocation 

station  in  first  row  on  wing 

(2)  XA1C(W,  1,2)  Streamwise  coordinate  of  second  AIC  a  llocation 

station  in  first  row  on  wing 


(NXWI N(i  *  NYWINC)  XAIC  (W,  NYWING,  NXWING)  Streamwise  coordinate  of  last 

AIC  collocation  station  in 
last  row  on  wing 


9.  continued 

Streamwise  numbering  sequence  is  from  leading  edge  to  trailing  edge 
(see  Figure  5.3  )•  Continue  input  of  values  for  each  row  immediately 
after  the  last  value  of  the  preceeding  row;  do  not  begin  input  of 
each  row  on  new  card. 


10.  Chordwlse  Location  o£  ATC  Stations  on  Control  Surface  (6E12.5  format) 


Column 

Ul2  ~ 

13-24 

25-36  1 57-46 

49-60  61-72  ; 

Name 

XA1C(CS, 1 , 1) 

KAIC(CS, 1 

. 2)XAIC(CS,1.3)j. . . 

T  1 

•  •  •  ,  a_*_a - } 

Item 

(1) 

(2) 

o)  :<4) 

(5)  (6)  ! 

Procedure  to  input  streamwise  coordinate  location  of  AIC  stations 
on  control  surface  is  the  same  as  wing  above.  Omit  this  input  if 
only  wing  is  analysed. 


3.0  SAMPLE  PROBLEMS 


The  operation  of  the  transonic  AIC  program  is  demonstrated  with  three 
sample  problems.  A  Lrapezoidal  Ving- rectangular  control  surface  combination, 
a  cropped  trapezoidal  and  o  delta  configuration  are  analyzed.  Explanation 
ol  Input  parameters  and  complete  listings  of  input  cards  and  computer 
output  are  given  for  each  sample  problem. 


Sample  Problem  1. 

Transonic  AIC's  are  obtained  for  a  trapezoidal  wing  and  rectangular 
control  surface.  The  planfonn  geometry  and  AIC  stations  are  shown  in 
Figure  S.5.  the  dimensional  unit  used  for  length  is  feet,  therefore  the 
acoustic  velocity  is  entered  as  feet/aec.  Five  boxes  were  specified  for 
NBW.  The  box  overlay,  which  is  included  with  the  output,  has  21  boxes  on 
the  wing  and  10  on  the  control  surface,  thereby  satisfying  the  45  box 
limitation.  There  are  10  diaphragm  boxes  in  the  gap  area.  The  analysis 
is  performed  for  M  ■  1.0,  kr  *  0.10  and  a  *  1116.87  ft/sec  (sea  level). 
Input  parameters  arc  summarized  below  and  a  listing  of  the  input  data 
cards  and  computer  output  follows. 


X(l)  -  0.0'  X(2) 

Y(l)  *  0.0'  Y(2) 

SOUND  »  116.87  ft/sec 

NMACH  =  1 

KF  *  1 

NFKF.O  “  1 

NltW  -  5 

I, PUNCH  ••  4 

FMACII  (I)  -  1.0 
KKK'f  (I)  -0.10 
NXWINO  -  I 
NYWINC  '> 

NXC.'I  2 
NYC.'i  -  1 


1.0'  X(3)  -  2.0'  X(4)  -  3.0'  X(5)  =■  4.0' 

0.0'  Y(3)  -  2.0' 

acoustic  velocity  (sea  level) 

number  6 f  Mach  numbers 

input  reduced  frequency 

number  of  reduced  frequencies 

number  of  chordwlse  boxes  on  wing 

punch  combined  wing-control  surface  AIC  matrix 

on  cards 

Mach  number 

reduced  frequency 

number  of  chordwlse  AIC  stations  on  wing 

number  of  spanwise  AIC  stations  on  wing 

number  of  chordwlse  AIC  stations  on  control  surface 

number  of  spanwise  AIC  stations  on  control  surface 


;v»» 


YAIC(1,W)  -  0.2' 

YAIC (4,W)  *  1.4* 

YAlCa.CS)  -  0.4' 

XAIC(1, l,W)  *  0.575' 
XAIC(2,1,W)  =»  0.725' 
XAIC(3,l.W)  •«  0.873' 
XAIC(4,l,W)  -  1.025' 
XAIC(5,L,W)  -  1.175' 

XAIC(1,1,CS)  =  3.25' 
XAIC(2,ltCS)  *  3.25' 
XAIC(3,1,CS)  *  3.25' 


YAIC(2,W)  -  0.6' 

YAIC (5, W)  -1.8' 

YAIC(2,CS)  -  1.0' 

XAIC(1,2,W)  -  1.050' 
XAIC(2,2,W)  -  1.150' 
XAIC(3,2,W)  -  1.250' 
XAIC(4,2,W)  -  1.350' 
XA1C(5,2,W)  -  1.450' 

XAIC(1,2,CS)  -  3.75' 
XAIC(2,2,CS)  -  3.75' 
XAIC(3,2,CS)  -  3.75' 


YAIC(3,W)  -1.0' 


YAIC(3,CS)  -  1.6' 

XAIC(1,3,W)  «  1.525' 
XAIC(2,3,W)  -  1.575' 
XAIC(3,3,W)  -  1.625’ 
XAIC(4,3,W)  -  1.675' 
XAIC(5,3,M)  -  1.725' 


FIGURE  5.6.  LISTING  OF  INPUT  DATA  CARDS  FOR  TRANSONIC  SAMPLE  PROBLEM  1. 
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Sample  Froblem  2. 

A  cropped  trapezoidal  wing  la  analyzed  for  M  *  1.0,  -  0.10  and 

'16.87  ft/sed  (sea  level).  The  trailing  aurface  la  removed  from  the 
anal„  jIb  by  setting  X(5)  •  X(4)  ■  X(3).  {The  wing  geometry  and  AIC 
stations  are  shown  in  Figure  5.7,  Six  chordwlee  boxes  were  specified 
for  the  wing.  The  resulting  box  overlay  has  33  boxes.  Input  information 
is  summarized  below  and  a  Hating  of  the  data  input  cards  and  computer 
output  follows. 

X(t)  -  0.0'  X(2)  -  1.0'  X(3)  -  2.0'  X(4)  -  2.0'  X(5)  -  2.0' 

Y(l)  -  0.0'  Y(2)  •  1.0*  Y(3)  -  2.0' 


acoustic  velocity  (aea  level) 
number  of  Hach  numbers 
input  reduced  frequency 
number  of  reduced  frequencies 
number  of  chordwise  boxes  on  wing 
punch  wing  AIC  matrix  on  cards 
reduced  frequency 

number  of  chordwise  AIC  stations  on  wing 

number  of  spanwise  AIC  stations  on  wing 

number  of  chordwise  AIC  stations  on  control  surface 

number  of  spanwise  AIC  stations  on  control  surface 

YAIC(2,W)  -  0.7'  YAIC(3,  W)  -  1.3' 


SOUND  -  116.87  ft/sec 

NMACH  -  1 

FK  «  1 

NFREQ  »  1 

NBW  «  6 

LPUNCH  «  1 

FMACH  (1)  *  1.0 

NXWING  *  4 

NYWING  «  4 

NXCS  -  0 

NYCS  -  0 

YAIC(l.W)  »  0.2' 

YAIC (4,W)  -1.8' 

XAIC(1 , 1,W)  -  0.100' 
XAIC(1,4,W)  -  1.900' 
XAIC(2, l,W)  -  0.100' 
XAIC(2,4W)  -  1.900' 
XA1C(3,1,W)  -  0.380' 
XAIC(3,4,W)  -  1.915’ 
XA1':(4,I,W)  *  0.860' 
XAK;(4,4,W)  -  1.940' 


XAIC(l,2,W)  -  0.700' 

XAIC(2,2,W)  -  0.700' 

» 

XAIC(3, 2.W)  -  0.900' 
XAIC(4,2,W)  -  1,220' 


XAIC(1,3,W)  -  1.300' 
XAIC(2,3,W)  -  1.300' 
XAIC(3,3,W)  -  1.405' 
XAIC(4,3,W)  -  1.580' 
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Sample  Problem  3. 


Transonic  AI(;':j  arc*  computed  for  a  45°  delta  wing  at  M  ■  1.01, 
t  -  5.5  cps  and  a  -1116.87  ft/sec  (aea  level).  Figure ',.9  shows  the 
wing  geometry  and  AIC  stations.  The  trailing  surface  is  removed  from 
the  analysis  by  setting  X(5)  ■  X(4)  ■  X(3) .  There  are  8  chordwise  boxes 
on  the  wing  and  a  total  of  36  boxes  in  the  overlay.  Input  parameters  are 
summarized  below  and  a  listing  of  the  data  input  cards  and  computer 
output  follows. 


X(l)  =  0.0'  X(2)  -  2.0'  X(3)  -  2.0'  X(4)  -  2.0'  X<5)  -  2.0' 

Y(l)  «  0.0'  Y(2)  -  0.0'  Y(3)  -  2.0' 


acoustic  velocity  (sea  level) 

number  of  Mach  numbers 

input  frequency 

number  of  frequencies 

number  of  chordwise  boxes  on  wing 

punch  AIC  matrix  for  wing  on  cards 

Mach  number 

frequency  (cps) 

number  of  chordwise  AIC  stations  on  wing 

number  of  spanwise  AIC  stations  on  wing 

number  of  chordwise  AIC  stations  on  control  surfac 

number  of  spanwise  AIC  stations  on  control  surface 

YAIC(2,W)  -  0.6'  YAIC(3,W)  -  1.0 


SOUND  =  1116.87 
NMACH  =  1 

KF  *  0 
NFREU  =  1 
NBW  -  8 
LPUNCH  *  1 
FMACH  (L)  -  1.01 
FRE^  (1)  -  5.5 

NXWING  »  4 
NYWING  *  4 
NXCS  «  0 
NYCS  =  0 

YAIC(I.W)  -  0.2' 
YA1C(4,W)  »  1.4' 

XAIG(l.l.W)  -  0.560' 
XAIC(l,t*.W)  -  1.640' 

XAJC(2,1,W)  -  0.880' 
XAIC(2,4,W)  -  1.720' 

xaic(:i,  j  ,w)  -  1.200' 
XA1C(3,4,W)  -  1.800' 

XAIC(4,l,W)  -  1.520' 
XAIG(4,4,W)  -  1.880' 


XAIC(1,2,W)  -  0.920' 

XAIC(2,2,W)  -  1.160* 

XAIC(3,2,W)  ■  1.400' 
XAIC(4,2,W)  -  1.640' 


XAIC(1,3,W)  -  1.280' 

XAIC(2,3,W)  -  1.440' 

XAIC(3,3,W)  -  1.600' 
XAIC(4,3,W)  -  1.760' 
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FIGURE  5. 10.  LISTING  OF  INPUT  DATA  CARDS  FOR  TRANSONIC  SAMPLE  PROBLEM  3. 


HUGHES  AIRCRAFT  CO.  TRifiSQMC  AJC  PROGRAM 
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PART  V  -  SECTION  B4.0 

LISTING  OF  TRANSONIC  AIC 
COMPUTER  PROGRAM 


P-il 


CHAIN 


HAIN 

COMPLEX  Z.W.F. VPIC.OS.PHIW.CK.nZERO.PH! .PHI TF. DPMI, 

1  SPHI . ASQ.EXF.AIC 

DIMENSION  ASQ ( 4  0 .  ) ,  f  ( 45 . 45 ) ,  S(  4*> .  45  ) .  R<  4* ,  ) ,  C<  4b  .  4*>  ) ,  B(  4**,  o ) » 

1  T<4S,4*>),TEMP<45,4,>).lM(45>,4‘>),TI(45,45)»TR(4t>»45) 

C0HH0N/C1  /KB0X(lflil«).XF(5).tF(.M.AR(3)»Xl,X2.x3#X4,Vi  »  Y? » BETA »  NBS 
COMMON/ C?/ AS  • NMACH»FMACH<6)»NFREQ*FREQ(10)»NMODE*NSURF»  L PUNCH 
COMMON/CS/VP  lC(8fl»1‘>),DS(2A2,>)*PHIW(50)*CK(4n)»DXE(6)»TPI»KF 
COMM0N/C4/MOR( 1  HO ) ,N0L(1OO )»F0. IFR. XL.NS, NTM. NBW.NBT 
COMMON/CVX. Y.OX.OY.EH.EK.EKB.FKR.NP.MP.NB. NBOX, KODfc . MODE 
COMMON/ C6/C ZERO.  PHI » PHI TE . DPM I • SPHI # RHO*  NXCS»  NYCS# NYuX ( 40  > 
COMMON/CR/XAICC  Ift.1n.'/>.YAIC(  I  n ,  y  >  .  NXBX<  41)  >  .NXBXCS.  NvW  I  NO,  NYW I  NO 
COMMON/ CP/ M(  4*),  44  )  . A IC( 45 , 45  ) 

FOIII  VAl  FNCE  (C.S.R),(ASQ»W»B)»(DS»F»TM)»(AIC.TEMP) 

1  C  A I  |  DA  I N 

IE  (NMODF  .IF.  46 )  00  TO  6 
WRITE  (6.8) 

B  FORMAT  <  1  HI  .  .  *>«H  NUMRER  Of  AfC  STATIONS  EXCEEDS  MAy  ALLOWABLE  (4 

1 5  )  /•>  X » 1  6H  CASE  TERMINATED) 

GO  TO  1 
5  CONTINUE 

DO  1  nun  MACH? i . NMACH 
EM  r  FMACH(MACH) 

IFCABSIEM-l.nj.GT.n.nB)  GO  TO  1U0U 
CALL  CODE 
CALL  P0UT<1) 

CALL  POUT  (?) 

NTRS*i) 

DO  /  1*1 » N8S 

7  NTRS=NTRS«NXRX(  I  HNX8XCS 
IF  (NTRS  .LE.  4  •> )  00  TO  1/ 

WRITE  (6.14) 

14  FORMAT(lH)  .8X.48H  NUMBER  OF  MACH  BOXES  EXCEEDS  MAX  A|  LOWABLE 
1/1X.16H  CASE  TERMINATED) 

00  TO  1 
17  CONTINUE 

TPUsTPl /( AS«EM) 

RFM  *  DX 

CAM  TRAMP  <'>.NTRS.NTCS,S»R.C,B»T.TR,Tl.TM) 

DO  ^il  1  =  1, NTRS 
DO  J=1 ,NTCS 
5‘>n  TEMPI  | .  J)=TR<  I  .  J) 

CAM  TRAMP  <1 .NTRS.NTCS.S.R.C.B.T.TR.T I.TM) 

DO  *'6 it  |  =  1  , NTRS 
DO  '.60  J*1 ,NTCS 
8f>«  TRY  I  .  .1 )  «  TEMP  (  I  .  J  ) 

DO  '/Oil  IFR  *  »  .  NFRhO 

If  ( K  F  .FO.  U  FRLO(IFR)=FRkO(ITR)«fMACH(MACH)*AS/<TPl«X1*ll*t>) 

FKr) RP0< I FR ) • TPU 
if  o  K.Fo.u.ii )  no  ro  otm 
EAR  -FK*RFM 
EAR  =  FK*X1  /  •».*« 

NMOliF  »N  |CS 
CAM  POT?H 
AROr  FK*  OX 

FXF.-CMPI  X(COSlARO)  .-SIN(ARO)  > 
no  ‘.nil  MOl)F=  '  .  NHOOE 
x  =  f  .*>»nx 

NH  r  i 

no  I  NP  =  1 . NHOX 
MH=MOh(NP) 
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Y = n .  (i 

Konf  =  kbox(nh) 

NS  =1 

00  10  KODF 

11  NS  =  ? 

IP  1)0  PH  HP* l #  MO 
SPHI  *  CZERO 
If (NP.GT* t )  CALL  PHIB 
If  (NS  .EQ.  f)  00  TO  13 
1R*| 

00  Pi  IL*1 #  HP 
PI  IRs|R*NXBX(  II. ) 

IR=lR»NP-NXBX(i > 

00  TO  ?<S 
|1  IRrli 

no  ■/?  IL*1  #  NOS 
>?  IR=IR»NXBX(  ID 
00  P'S  I L *1  *  HP 
P.s  1  R=  I  R  vNXBXCS 
I  Rs 1 R-NR0X+NP 
SR=TR( 1R.H0DF) 

SI  =  1  K IR,MOPF)»TPI»fR£0(!fR)/iFH»*S) 
CK(HP)*CHPLX(SR.SI > 

0S( MB  )=CK (HP ) 

DS(NB)  =  I)S(NB)  -  SPHI 

Y  =  Y+DY 
Pfi  NO  r  NB«1 

NB  *  NB-MB 
00  .10  1 0  =  i  *  MR 
DO  .10  JQ=1  *  MR 
IJQ  *  I  ABS< I  0- JO  > ♦! 

^  ASQTlQ. JO)  *  VPICdJO.I  ) 

IF(jO.FQ.l)  00  TO  10 
I JQ=lO* JQ-1 

A S0(  I  0. JO )*ASQ( 1 0 . JO ) ♦ VPI C (  I  JO •  1  ) 
in  CONTINUE 

LS0-MSlMFC(4n,MB. i . ASO . OS ( NB ) ) 

If (l  SO.EO.l)  00  TO  19 
00  TO  901] 

19  CONTINUE 

Y  =  fl.fl 

If  (NP.Nf .  I  )  00  TO  *>(! 
no  a*>  MP=  l » MR 

4**  nS(MP)  =  DS (HP )*?•#/ 1.1  4 1 *>92 7 
‘>o  coni  i nui 

IT  (K00F.NED  )  00  TO  80 
no  /.n  mp* l » hr 

nS(NB)  S  PHIH<MP)M0S(NB)-PHIN(MP))»?.0/1.141*>927 
r»n  NR=NB ♦ 1 
NR*NB-M» 

CONTINUE 
no  100  HPsl.HR 

IMKOnF.FO.l)  PH|W(MP)*OS(NB)*FXF 
If (NP.FO.NROX-1 )  PH:M(HP)sOS(NH) 

PH1TF  s  nS(NO) 

If (NP.FU.NBOX)  PHITF  *  PH  I  TE*  <  PH  I  TF-PHl  W(  HP  )  )  »DXE  ( •> ) 
phi  =  ns<  NB  ) 

00  TO  nPH.  I  »1  ,  IP8.1P1  .l?l  .l>/).KOn£ 

1/M  I  c 

no  1 PP  I L -  1 #  MP 
1  PV  ICc|C*NXBX(  II.  ) 
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tc=  ldNP-NXBX<  1  ) 

00  TO  1/A 
1/1  T  C  =  i 

00  \?S  Il-t'NBS 
V  p.Y  IC*|C»NXBX(II.) 

00  1?4  11=1. HP 
1/4  IdldNXBXCS 
IC= 1 C-NBOX*NP 

1  '/A  AICl  I C » MODE ) =0S ( NH ) / FM 
1/7  CONTINUE 

NB  =  NR  ♦  1 
inn  V* V*  OY 
00  TO  PnO 

1/0  no  1  nil  MPsl.MH 
0S( NB )*PH I M( HP ) 

PHIW(MP)  =  FXF •PHIM(HP) 

CX(hP)*CZERO 
HI)  NB  :  NB*1 

poo  x  s  x»nx 

Sun  CONTINUE 

CALI  SO?  (S.R.C.B.T.TR.TH) 
no  / 0 l  1=1. NTRS 
00  / n i  Jsl.NTRS 
<5I  =  U.<I 

IF  (I  .EO.  J)  SI=TPI»FREO< IFR)/(FM*AS) 
SR*TH(  I »  J  ) 

7«1  M( 1 . J»*CHPLX(SR.SI > 
no  /O/  |=l,NTRS 
no  /n/  Jat.NTCS 
m.J)a(o.n.o.n) 

1)0  /0?  K  =  1  »  NTRS 

7 UP  F(  I  ,  J)sF<  1.  Jt*UU.K)»AIC(K.  J) 


CALL  FORCE  (R) 

00  /Oh  |=l.NTCS 
no  /OH  J=1.NTCS 
AlC(I.J)  =  <n.n,n.(i) 
no  /OH  K=1 .NTRS 
2=CMPLXIC(|.K)*F0/(H. 


S*(TPI«FRFO{  IFR)  )**P*(YF(  )  )-YE(  i  )  >•(  XEU  )-XE  ( 


11.  ))*•/).  0.0) 

7 .i «  AIC<  I .  J)  =  A|C(  I  .  J)-Z»F(K.  J) 

CAM  POUT  ( 3  ) 

IF  (I  PUNCH  .OT.  0)  CALL  P0UT<4) 
On 0  CONTINUE 
mill  CONIlNUF 
00  TO  1 
FNn 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 
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croxce  forcf 

SUBROUTINE  I  ORCE  (R) 

COMPLEX  CZFRO.PHI .PHITF.DPHI .SPHI 
COMPLEX  VPIC.nS.PHlW.CK 
0  I  MENS  f  ON  R<4‘>.4*>) 

C0MM0N/C1/K80X(l#'«9).XF<S).YE(,').AR(S>*X1#X?.XS#X4»tt  , Yj . BFT A . NBS 

COMMON/CP/AS. NMACH. FMACH<  6 >  #  NFREO. FRFQ< I  ft) »  NMOOK*  NSURF • LPUNCM 

C0MM0N/n-WP|C(8n.1,»).nS<P»l2‘')*PHIW<^lt>*CK(4i>)*DXE(6>*TPI»KF 

COMMON/ C4/ MOB <  1  il  n  ) .  NBL(lOi) )  »FO.  I FR .  XL  »  NS .  NTH .  NBM»  NPT 
COMMON/C**/X.V,nX.I)Y»EM.EK»FKB*FKR»NP»MP»NB*NBOX»KOflfc.MO-!r 
C0MM0N/C6/CZFR0*PHI#PHITF»  DPH I  .SPHI»RHO»NXCS*NYCS»NYbX(*.' 
COMMON/Cft/XAICfin.llim),  YAlCim ,  ?  > .  NXHX<  4li ) ,  NXBXCS,  N*M  iNu ,  NYM1  NO 
NSUH=NXBX ( 1  ) 

MB=H0H(N80X> 

NMRXW=0 
00  ».«  1=1  .MH 
*>fi  NMBXM  =  NMBXM»NXBX(  I) 

KROW=NXMlNG#NYWING*NXCS«NYCS 
KCOl  =il 

no  mu  Is i  .mb 

1.1(1  KCOl =KCOl *8X0X1 1) ♦NXBXCS 

no  mu  i  =  i.xrow 
no  mn  j= l . kcoi 

i  ->n  R( ! ,  j ) =n * u 
no  mo  i  =  j. .mb 
NCK  =  n 
FRB=1 .n 
FRT=1 .0 
F  OF  =  1  .« 

YR  =  OY#FLOAT(  D-DY 
I  I sNYWI NG-1 

no  *1 u  III=1.II 

IF  (n.5#(YAIC(!ll»1  )+VAlC(III+i»1  ))*YE(I  )  .OT.  YR-.*>*l)Y)  GO  TO  O.fu 
4  i  n  CON  I  I NUF 
1  I !=NYWING 

oo  ro  a?« 

410  CONTINUE 

IF  (  YR-H .  *>*H  Y  .LT.  (im»<YAlC(HI.l)»YAICcmM.l))-YF(1  )  .AND. 

1  YRHim»IiY  .OT.  YAIC(  II  I  .  J  )  ♦  YA I C  (  I  I  I  *  1. 1 )  )-Yp(1  )  )  NCK  =  i 

IF  (NCK  .EQ.  '•)  00  TO  4?n 

FRRe  (i».*i*(YAIi:(  I  1  I  .  1  )*VAIC(  1 1  I  U  .1)  >-YEC1  )-YR*fl.b»DY  1/DY 
F  RT i 1 .n-FRB 

4 ^ ii  NROW  =  NXWINO#(  I  I  I-  I  ) 

ncoi  ='• 

no  f.sn  iiiin.i 
4-.ll  NCOI  =NCO!  *NXHX<  I  I  I  I  ) 

ncoi  =ncoi  -Nxnxc  i ) 

KK"NX!lX(  I  ) 

no  /‘Ml  K  =  I  .  K 

no  /(III  JS  I,  NYU  I  NO 

ir  (  XAICn  .  Ill  .  1  >-XM  I  )  .OF.  (FL0AT(NXBX(  I  )-NXRX<  I  )*K  >-.i»»*0X) 

i  no  io  / 1 o 

’ll  (XAiniNXNINO.  I  11,1  )>XE(1  )  .IF.  <  M.OAT  < NXHX  ( 1  ) -NXHX(  I  )  ♦  K  >- .  *>  )  * 
mxi  no  TP  7/n 

If  (XAICf  J.  I  I  I  .  I  1-XM  I  )  .OT.  <FLOAT<NXBX(  1  )-NXBX(  I  )*K)"»*0*UX) 

i  on  io  /in 

7  Ml  C0N1INUI 
7  I  (i  NRr  -NROWM 
NCr-NCOI.  *K 
R{ NPF , NCF  )=f  RH 

If  (I  .FQ.  I)  R(  NNF,  NCF  )  =  R<  NRF .  NCF  )•*» .  *> 


If 

(K 

.FO. 

KK  ) 

RINRF.NCf  )  sR(  NR  .  NCF  )•() .  *> 

IF 

<  I 

.FO. 

MR  ) 

f  OF  =  CVFm-YF  .  1  >-(f  L0AI(MP)-1.«»)»DY)/0Y 

If 

<  1 

.FO. 

MR  ) 

R( NRf  .NCF)sR(NI»:  .NCF)»F0F 

00 

10 

740 

7/0  NRF  =  NR0W»  NXW I  NO 
NCF  sNCOL*K 
RINPF.NCF )sFRR 

IF  (I  .FO.  1)  R(MRF »NCF)xR(NRF  .  NCt'  >«ft.5 
IF  ( K  .FO.  KK  )  R(NRF  >NCF)=R(NRF  »NCF)«0.'-'' 

IF  <1  .FO.  MR)  F OF  s  { YE ( i >- YE ( 1 )- < FLOAT *«R >- 1 . * )«0Y )/ DY 
IF  (I  .FO.  MR)  RINRF.MCF  >sR(NRF,NCn»FO? 

00  |0  74ft 

7  '<•  R)  =XA1C<  J,  1  I  |  .  M-XF<1  )-( FLOAT  < NXBX ( 1 > -NXRX <  I  >  *K  >-u .  *>  >»DX 
fts>r*A  IC<  J.  I  I  I  . '  )-XAlC<  J-1  .  Ill ,  i  ) 

NRF=NROW* J 
MCF  =  N00l *K 

R(  NRF . NCF ) s ( 1 . n -R i /R3)#FRB 

R(NRF-1 .NCF)-(Rl/R^)»FRB 

IF  (I  .FO.  1)  R(NRF.NCF)su.*>*R(NRF.NCF ) 

IF  (I  .FO.  1)  R( NRF-1  ,  NCF  )  =  0  .  *>»R  ( NRf'  - 1  *  MCF  ) 

IF  ( K  .FO.  KK>  R(NRF.NCF)*R(NRF.NCF)*0.‘> 

IF  (K  .FO.  KK)  R( NRF -  I . NCF >=R( NRF-1 » NCF  )»u .b 
IF  (I  .FO.  MR)  F  OF  =  <  YFM)-Yfc<  1  )-<f  L0AT<MP)-l  '•DYi/OV 
IF  <1  .FO.  MR)  R(NRf  .NCF)*R<NRF,NCF)*FOfc 
IF  (I  .FO.  MR)  R<  MRF - 1 . NCF  >*R( NRF-1 #  NCF )  »f OF 
740  nONTlNUE 

IF  (NCK  .FO.  1  .AMO.  K  .FO.  KK)  ftO  TO  7on 

00  10  ;sn 

7h 0  no  0S||  Ktsl  ,  KK 


no  MU)  JT  s  1  .NX WING 

IF  (XAIC(I.IIIMM)-Kem  -OF.  (FLOAT(NXRX(  1  >  -  NXBX  (  I  >  *KT  )-.!>)  »DX ) 
100  10  RIO 

IF  (XAlCINXWtNG.  1 1  S  ♦  1  *1  )-XF ( 1  )  .LE.  CFL0AT(NXBX(1  )-NxBX (  I  )  +  KT  )  -  .  ^  ) 
)*0X)  GO  TO  b'D 

IF  (  XA I  C<  JT.  I  I  1*1  ,1  )-XF(1  )  .QT.  <fLOAT(NXBX(l  )-NXBX (  f  )*KT)-.*7)*DX) 
100  10  RJfl 
R'lO  nONTlNUF 
RIO  NRF  =  NROW»NXWlNGM 
NCF  =NCOl*KT 
R(NRF  ,NCF)*FRT*FOF 

IF  <  K  T  .FO.  KK)  R(NRF,NCF)5R(NRF.NCF  )*n.R 
00  10  R4l) 

R:>0  NRF  :  NROW+ ?*NXW I  NO 
NCF :NCOl *KT 
R(NKF.NCF )*f  RI*F0fc 

IF  (KT  .FO.  KK)  R(NRF, NCF  )sR(NRI  .NCF  )••!.«> 

00  10  H40 


Rtfl  Ri  tXA  |C<  JT.  I  I  I  *1 .  I  )-XF(1  ) - ( F  LOA  T {  NXBX  ( 1  ) 
R.teXAICf  JT  ,  I  I  I  *  l  .  i  >-XAIC<  JT-1  .  I  I  I  fl  .1  ) 
NRF-NHOW*  NXW  I  Nf)»  JT 
NCF  *.  WCOIMKT 

RlNRl  ,  Nf.'F  )  *  <  i  .O-Ri  /RI )  »F  RT»f  OF 

R  (  NRF  - 1  .NCF)-(RI /ROM  RT*F0F 

IF  (I  .10.  I)  R  ( NRF .  NCF  )  s  K .  •  R  ( NRF .  NCF  ) 

IF  (I  .FO.  i)  RINRF-1  ,NCF  )  *  0  .  •>*  R  (  NRF  - 1  .NCF  ) 

If  (Kf  ,Fg.  KK)  «•  NRF  .  NCF)*tl.*>»R(  NRI  .  NCf  ) 

IT  (KT  .FO.  KK)  NRF-1  ,  NCF  > -mi  .»>•«<  NRf  -  i  .NCF) 
R 4 0  CONI  I  NIJF 
R  ui  CONI  I  NUf 
7'/0  CON)  l  NUF 

A H  M  CON  1  I  NIIF  orr 


NXBX ( I )*KT ) - « . S ) «DX 
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i 


no  -'flu  |  -  1  .  MH 

KK=NXHXCS 
NCK  =  f 
FRR  =  1  .n 
FRT  =  1  . 

FOF  =  1.0 

YR=I)  Y*F|0AT  ( ?  > - 0 Y 

U=NYCS-1 

DO  ^ln  l!!sl  .  I! 

IF  (n.9«(YAIR(!!!,?)*YA!C(!I!*l«?>>-YE<J>  .GT.  YR-.I>*DY>  60  TO  4.50 
4  t  0  CONTINUE 
I If=NYCS 
00  TO  4?0 
4)"  CONTINUF 

IF  (YR-ft.S*HY  .LT.  u.b«CYAlC(III.i'i*YAICiIIlM.4n-YP<1)  .AND. 

J  YR*H.>*OV  .OT.  1i.H«(YAICCII1*/)^VAIC(III»1»^))-Yp(1))  NCK  =  i 
IF  (NCK  .fcO.  (O  00  TO  <2fl 

FNR  ■=  4  u  .  s*  <  YAir<  I  |  1 .?  )♦  YAICII  1 1  *  1 .2)  >-YE<1  >-YR*n.5*DY  )/0Y 
FHT-1.0-FKB 

4^n  NR0WsNXUlN0«NYHlN6«Nr  "*<IIl-l> 

NCOI  sNMUXWM  1-1  )*NXRXl., 

no  ^*>.i  k=i.nxhxcs 
no  ^nu  j=i » nxcs 

IF  (XAICIl#  III.2)-XF<I  )  .ge.  !FLOAT!NBOX-NXBXCS»K>-.‘>*l>X> 

too  to  oi n 

IF  (XAICINXCS.m.'-M-XFd  )  .  LE  -  (FLOATtNBOX-NXBXCS^K  1  -  - 1»  J  *DX  > 

TOO  TO  o?n 

IF  (XAIC(J»  1 1 1  •  ?  )-XF  (  1  )  .GT.  ( FLOAT CNBOX-NXBXCS+K  )-.l.)*I)X) 

100  TO  0.5ft 
Ollft  CONTINUF 
01ft  NRF  =NROW* l 
NCF  =  NCOL ♦ K 
R(NRF.NCF)=FRH 

IF  (I  .FO.  I)  R I  NRF.  NCF  )=R(NRF  .NCF  )*ft  .*> 

IF  ( K  .FO.  I)  R(NRF.NCF)sR(NRF.NCF)*(  (FLOAT(NBOX-NXBYCS*l  >>«*DX 
1 -XF  <  4  )  ♦ XF ( 1 ) >/nx 

IF  <K  .FO.  K  K )  R(NRF.NCF>sB(NRF#NOF)»(XHl>)-XMl)-m  O.lTINBOX-t  ))* 

lOX)/nx 

IF  (I  .FO.  MB)  F0H*<YF(3)-Yt( I )-(FLOATIHR)-i .B)»OY)/hY 
IF  (I  .FO.HH)  R(NRF,NCF)sR(NRF.NCF)*FOF 
00  TO  04ft 
0 yn  NBF  =  NR0W*NXC:0 
NCF  r  NCOI ♦K 
R<  NRF  .  NCF  )sf  Rif 

IF  (I  .FO.  I>  R( NKF  *  NCF )*R(NRF . NCF  )*0 

IF  (K  .f-0.  I)  RINRF,NCF)*R(NRF.NCF)«((FL0AT(NB0X-NXHYCSf1  ))*nx- 
1  XF  ( ■»  ) ♦ XF  (  l  )  )/|)X 

IF  <K  .FO.  KK>  R(NRF  .  NCF  )  *R  ( NRF ,  NCF  )•  (  Xb  1 ) -Xfc  ( 1)  -  <  H  OAUNBOX-U  )• 

i nx )/ nx 

IF  (I  .FO.  MR)  FOF  =  <YH  5 )  -  YE  ( 1  )  -  ( F  l  OA  T  (  MB  )  - 1 .  )  *0  V  >  /  0  Y 
IF  (I  .FO.HH)  R(NRF.NCF)*R(NRF.NCF)«FOF 
00  10  0 4 II 

O.Wi  Rl  ryA  |C<  J.  I  I  I  .:')-XF<1  )-< FLOAT! NBOX-NXBXCS* K  )-.»>)«DX 
R.iryA  |C(  J.  Ill  .  ;*  )-XAIC(  J-1  ,  I  I !,-') 

NRF  NROW  * J 
NOT  -  NCOI  ♦  K 

R  (  NRF  .  NCF  )  =  (  l  .ii-Rl  /R.5  )#F  RH 
P(NRF  -1  .  NCF  )  -  (Rl  /R.T  )*FRB 

II  <1  .10.  I)  R(NRF-1  .  NCF  ) -U  .  t>»R(  NRF-1 .  NCF  ) 

If  <!  .FO.  I>  R(NRF,NCF>sn.*»*R(NRF  .NCF  > 

II  (K  .10.  I)  R ( NRF  »  NCF ) *R ( NRF . NCF  )  * (  FLOAT ( NBOX-MXBXCS  +  K )»DX 

2S7 


1  -XF(« )*XE(1 ) )/nx 

fr  < K  .EG.  1)  R(NRF-1 .NCF  j*R(NRF -l .NCF)*(  FLOAT ( NBOX-NXBXLi+K  ) *fcX 
1  -XF ( 4  )  ♦ XF (1  ))/DX 

IF  <K  .FO.  KK  )  R(  NRF «  NCF ) =R(  NRf  . NCF  )  •  (  XF  ( •>  >  -  XF  ( 1  )  -  FLOAT  (  NBOX-1  )  * 

1 f)X)/DX 

IF  ( K  .FO.  KK)  R(NRf-l.NC)  )*R(NRF-1»NCF)»(XF(‘>)-XE()  )- 

ifioat<nhox-i )*nx)/ox 

IF  (I  .EO.  HR  )  FOE  s  (  VE(  .1  >- YE<1  ) -< F  LOA  T  ( KB  ) -1 .  •>  )*DY  )  /  Oy 
IF  <1  .EO.  HR)  R(  NRr . NCF ) *R( NRF  *  NCF )«FOE 
IF  (I  .EO.  HR)  R(NRF-I.NCF)=R<NRF-i ,NCF)*FOE 
940  CONTINUE 

IF  ( NCK  .EO.  1  .AND.  K  .EO.  KK)  00  TO  960 
00  T095u 

960  DO  ,i*il  K  T  =  l  *  KK 
DO  -MM  JT=1 ,NXC« 

IF  f  X  A  f  C  C  I  .  I  1 1  ♦  I»')-XE<1  >  *  OF .  (FLOAT(NBOX-NXBXCS*KT  »-.t>)»DX) 

LOO  TO  I 1 0 

IF  ( XAICINXCS. I  I  I *1 ,?)-XE(1 )  .LE.  ( FL OAT ( NBOX-NXBXCS . K T  ) - . 6 ) *0X ) 
100  10 

IF  (XAICUT.  I  I  1*1  ,?)-XF<1  >  .OT.  ( FLOAT  ( NBOX-NXHXCS*  K  T  )'.*>  >»1>X  ) 

100  TO  T.10 
TOO  CONTINUE 
TtO  NRF -NR0M4  NXCS* 1 
NCF  =  NCOl *KT 
R(NRF.NCF)sFRT*FOE 

IF  (KT  .EO.  KK)  R(NRF,NCF)sR(NRF.NCF>«<XE<H)-XK1  )-  r LOA T ( NBOX- 1 ) * 
1 0X1/DX 

IF  (KT  .FO.  i)  R( NRF . NCF ) =R( NRF . NCF )* (  FLOAT (NBOX-NX«XCS*l )*DX 
1 «XF ( 4  ) ♦ XF { t ) ) / OX 
00  TO  14ft 

.VO  N'RF  =  NROM*<'»UXCS 
NCF  =  NCOL  »KT 
R(NRF.NCF )  =  f  RT*FOE 

IF  (KT  .EO.  KK)  R(NRF,NCF)=R(NRF.NCF)#(XE(^5-XE(1 >-  rLOAT(NBOX-l > 

mx)/nx 

IF  (KT  ,eO.  1)  R(NRF.NCF)sR(NRF,NCF)*(  FLOAT ( NBOX-NXbXCS ♦ i )»0X 
j -xf ( 4 ) ♦ xE( i ) ) / nx 

00  TO  T4 0 

.1.40  RI  =  XAIC(JT.  I  I  in.  ')-XE(l  )  -  ( F  LOA  T  ( NROX-NXBXCS  •  KT  >»DX- .  ‘>*DX  ) 

R.4t*XA  !C(  JT.  I  f  I*  I  .  ')-XAIC<  JT-t  *  II  1*1  >?) 

NRF-  NRON«NXCS«.IT 
NCF  =  NCOL  «  KT 

R( NRF . NCF ) * ( 1 . ft -R  * /RT ) *FRT*f  OE 

R(  NRF  -  I  .NCF  >MR!  /R-T  )*FRT»FOE 

If  (I  .FO.  I)  R(NRF,NCF)sii.*>»R(NRF.NCF  ) 

IF  (I  .FO.  1)  R(NRF-1  .  NCF)*U.‘>»R(NRF-1»NCF  ) 

If  (KT  .FO.  1)  R(NRI  . NCF  )  *R( NRf  . NCF  )*  ( F LOA T ( NBOX-NX»XCS » 1) *DX- 
I XF(*  >«XF(1 ) >/nx 

IF  (KT  .FO.  M  RCNRF-I .NCF)sR(NRF-1»NCF)«(FL0Ar(NB0X.NXBXCS>l >«UX 
1  XF  f  4  )  ♦  XM  I  ))'»X 

If  (KT  .EO.  KK)  R(NRF,NCF)sR(NRF.NCF)«(Xf (R)*XE(1 )-f  I  OAT(NBOX-i )# 
inx)/DX 

If  (KT  .FO.  KKi  RCNRF-1  , NCF ) *R< NRE-l. NCF  )  •  (  XF  ( *>  )-XF  (  •  )-f  LOA  T(  NROX 
1  I  )  •  I)  X  )  /  D  X 
T40  CONTI  Nil) 

.V*H  CONTI  Nil  F 
9*.0  CON)  INI  If 
4il0  CONTINUE 
RETURN 
END 


ccoof  cons 

SUBROUTINE  COIIF 

COMPLEX  CZERO.PH! .PHITF.DPHI .SPHI 
COMPLEX  VPIC  >  IIS.  PHIW.CK 

COMMOM/C1/K«OXaftnO).XF(5).YF(  « ) .  AR<3 ) .  XI ,  tZ .  X3»  X4»  Y<  .  Y2.  tfETA  » MBS 
COMMON/C?/AS.NMACH.FMARH(6)»NFREO.FREC:in ) , NMODE , NSUPF . LPUNCH 
COMMON/C’  'VP!C(#n,  i  •> ) .  OS(  ) .  PH  I  M<5f  ) .  CK  ( 4 n  ) .  DXE(6 ) .  TP!  .  KF 

COMMON/RA  JR(  1  un  ) ,  NBLUOil  ),FO.  IFR.  XL , MS.  NTH.  NBH. NRT 
COMMON/C'i/X.  Y.nX.  OY , EM . EK . EKB,  FKR.NP,  HP.  NB.NROX.  RODE.  MODE 
COMMON/CA/CZFRO.PHl.PHlTE.DPHI . SPH! . RHO» NXRS, NYCS. NYsX ( 4H > 
COMMOM/CP/XAIC(  t«.1li.P).YA!C(  1  n , ? > . NXBX< 40 ) , NXBXCS. NyU ! NO, MYU1NG 


BETA 

=  EM 

XI 

s 

XF  ( 3 ) 

-  XF  <  1  > 

X? 

s 

XE  iM 

-  XF  ( ?  ) 

XI 

■= 

XF(4> 

-  XF(1) 

X4 

r 

XF  ( *>  > 

-  XF(4) 

X*> 

? 

XF  ( 0  ) 

-  XF  ( 1  ) 

Yl 

YF  ( ?  ) 

-  YF ( 1  > 

Y? 

- 

YF  ( .S ) 

-  YF  ( 1  ) 

IF  (X?.GT.X1  .OR. XI  .OT.X^.OR.XUOT.XS.OR.XP.l  T.0.0)  GO  TO  *>e 
'  I  f  (  Y 1  ’JT.YP.OR.Y1  . LT .  I) .  0  )  00  TO  5U 
tui  =  n.n 

IF(yP.NF.YI)  TWL  s  (XI  -  X? )  /  (Y?  -  Yl) 

A  R  (  i  )  =  (Y?*(X?*X1)  -  Yl  *  ( X2-X1 > ) 

ARC?)  s  Y?*X4«?.n 
AR<<  )  s  AR<  1>  •  ARC?) 
in  l)X  =  X)/(FLOAT(NRM)  •>«.*>) 

IF  (ino.o#  DX  .OT.  xs >  00  TO  ?» 

1  *5  NRW  =  NBU-t 

oo  10  in 

>n  OY  -  DX/BETA 
YN1  =  Y1/L5Y 

YN?  =  Y?/DY 

XN|.  =  Y..?  -  <X1-X'>  /  OX 

XNT  =  YU?  i  X'WOX 

XNI  F  =  X.1/DX 

XNTl  =  X'>/|IX 

NBO>  =  XNTF ♦  II . '» u  i)  ||  il  il 

NBS  =  YP/OY  ♦  »  .n 

NHT  =  X4/0X  1  n,«> 

n xf ( t  >  =  i  .n 

nxF(?i  =  i.  n 

l)XF(  M  =  ll. 

HXF<4)  =  A I  NT  ( XNLE  ♦  1.*>)  -  XNLF 
nxf  ( *» »  a  XNJF  -  FLOATCNROX-1  ) 

DXF(M  r  IJ.II 
X  *■  n.»>  •  DX 
NH  ■  ll 
KOIM  -  I 

no  nn  I | = I , MH 
'to  NXRX(|I)*« 

Nxnxcs=n 

no  m  np  =  i . nhox 

XN  FI  OAT(NP)  -  ll. *> 

YU  YN? 

f!  (TUI  .OT.  m.ii)  YUsAMlNl  (  YM.YN1  ♦XN/(TUL/BETA)  ) 

MH  IF|X(YW1«1 
MOP(NP)  b  Hit 
If  (MR.GT.4fl  )  00  TO  !»> 

If  (NP  .FU.  NHU)  KOBE  rj 
If  (NSURF  .f  0.  1  )  00  TO  '/V 


I*  J)  00  TO  7(i 


U  <*  • OT.  XI )  KODE  *6 
,f  ,Nf>  -E0.  NHW )  KOHF  *3 
If  <X  .OT.  XI  )  KODE  *4 
fr  <*  *GT.  xwnx)  K0DE«2 

vo  \l  <!iP  *e0#  NH0X>  *0DE 
If  ( NfU  MB«  GT  4  ?'i  A»; )  60  TO  1  h 
*«l  <NP>  *  NH 

v>l  HP  -  J.Mft 

00  }SY|  •ftt-  ’  ««»*  ••=#•  •»>  00  TO  7. 

/ft  *XRX(MP>*NXHXm  . 

.'■>  CONTINUE 

[r  *Mp  ‘NP.  1 )  00  TO  /3 

00  •E0-  ’  •')R-  MBf  -00.  1  .OR.  Ton 

/?  WXRXCS*NX8XCS‘ » 

/*  CONTINUE 
N6  r  NB  ♦  1 

T  =  nY«fLOAT(HP)-0.*>»OY 

•ift  K0OX  («fi  >  -  K00e 

4  9  Jo'Sf  K0,,E  •E0-  '»  NrB*(»F)=«p 

OCRHO  =  A.5mas»FH>*»? 

PETi%Nft‘fl#,)X#f,Y*00RH0/FM#RH0 
*>A  CAI  I  FXIT 
&FTORW 
FNT» 


KODE  . feO. 


Xu|i.. 


Un  TO  /? 
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cpgut  pout 

SUBROUTINE  POUT  i  i  ND ) 

COMPLEX  W,AIC 

COMPLEX  VP  1C . OS, PHI W»  CK 

COMPLEX  CZERG, PH l , PH I TF, DPMI , SPHf 

D  IMF  NS  TON  SW(  *> ,  A  ) »  SURF  (2,3  ) » COD<  7  ) , C(50  ) 

COMMON/ Cl  /KB0X{lflU0)#XF<5)»YE(3)*AR<3)»Xl»X2»X3»X4,Yl»Y2*BETA»NBS 
COHMON/C?/ AS. NMACH,EMACH (6 )  * NFREQ,FRFO< 10 ) , NHODE, NSURF . LPUNCM 
COMMON/C3/VPlC<Bfl,1‘>),nS<2n2B).PHIM{50>»CK(40)»BXE<6),TPI»KF 
C0MM0N/C4/M0BT1  00 ) , N8L<100 ) , FO. !FR# XL* NS# NTH* NBM» NBT 
COMMON/C5/X,  Y,  DX  *  l)Y>  EM .  OK » EKB ,  FKR*  NP*  MP*  No  *  NBOX,  KODE  .  MODE 
C0MM0N/C6/CZEp0*  PH  I , PHI TE»  DPMI #  SPH l , RHO*  NXCS, NYCS,NYRX(40) 

COMMON / CR / X A  *  i,  i  10  »1  0 , 2 ) , YA 1C ( 10 , ? ) , NXBX< 40  > , NXBXCS, NxW I  NO* NYW ING 
C0MM0N/C9/W(4A.4S),A!C<45»45) 

DATA  <  SW ( 1 >  I  )*  1*1  #A)/?AHMAP  OF  SONIC  BOX  OVERLAY  * 

1  2AH0N  NINO#  7AIL  UHH  WAKE 

2  2AH  (S)  -  W(NO 

3  2AH  (t)  -  TAIL 

4  PAH  <•)  -  WAKE 

5  PAH  / 

DATA  (SIJRF(1  .  F  ),  1=1 ,3>/8HWlNG  ,«HTAlL  .11HWING  ♦  TAIL  / 

DATA  COD/ IMS. IMS, 1HS, » HS, lHi . 1H , , 1H. / 

GO  TO  (10, ?fi,. 10,411),  INO 

10  WRITF(A.ll)  FM  AS,RHO,XE(1 ),XF(4).X1 ,X4, Y1 ,Y2, Y2,Y2.X?,X4, 

1 AR ( 1  ),AR(2),NBW,NHT,NGS,NBS 

11  FORMATt  1H1  // //  /  32X , 42HHUGHES  AIRCRAFT  CO.  TRANSONIC  AlC  PROGRAM 

1  / //3 / X , 30HFL I GHT  CONDITIONS  AND  OFOMETRY/1 H0//15X,  1 3HMACH  NUMUER 
?  *,Ffl.B,4X, 1AHSPEED  OF  SOUND  *Ft0.3,4H  L/T , 4X, 4HRH0* ,F5.2  //1H0/ 
B54X, 4HWI NG, 1 BX  • 

3  4HTAIL///22X.1AHL.E.  STATION  (L ) » ?f?2.3//?2X, 16HR00T  CHORD  (L)» 

4  2FP2.3//  22X, 1 6HL.E.  SPAN  (L > » ?F?2. J//?2X, 1 6HT.E .  SPAN  (L), 

A  2FP2.3//  22X.16HTIP  CHORD  <L),?F?2.3//?2X,16MT0TaL  AREA  (L«L), 

6  2F22.3//  ?2X,1 6HCH0RDWISE  BOXES  ,119,12?// 

7  ??X, 1 6HSPANW I SE  BOXES  ,119,12?) 

WR!TE(A,.12)NROX,DX«DY 

l?  FORMA T('j H0/»  1 1  X, ?3HT0TAL  CHORDWISE  BOXES  *,I3,  *X#11MB0X  CHORD  *, 

1  1  Pi El?.5,?H  L.  5X.10HBQX  SPAN  *, 1P1E12.B, ?H  1/  ) 

WRTTF  ( A  *  1 09 ) 

1  <J9  FORMAT  (IHt ,  ////  31 X ,  *OHHl'GHES  AIRCRAFT  CO.  TRANSONIC  AJC  PROGRAM 
1 ( CONT-D )  ////) 

NB  *  l 

00  17  NP  s  1 • NROX 
MB  r  MOR(NP) 

DO  13  MP  *  1  . MB 
K  s  KHOX(NB) 

C ( MP  )  *  COD(K) 

13  NR  s  Nil  ♦  1 
IF(NP.GT.A)  GO  TO  1 b 

WRI 1 E ( A, 1 4 ) ( SW( I «  NP ) , 1*1  .A),  (C(MP).MP*1 ,MB) 

14  FORMA  T ( 1  OX, A Aa • A0A1 ) 

GO  TO  17 

t*»  WRITE  (A,  1  A)  ( C(  MP ) ,  MP*1  ,  MS ) 

1  A  r ORMA  T(40X,^0A1  ) 

17  CONTI  NIK 
GO  TO  in  on 

/n  nys^nywino 

NXSsNXWING 
DO  ?0H  NSsI,? 

WRITE  (A, 20J)  (SURF  (  I » NS ) ,  I*  1  ,  *-' ) 

?H1  FORMAT(1H1,30X,90HHUGHFS  AIRCRAFT  CO.  TRANSONIC  AIC  PROGRAM  (CONT- 
1D)  /////  2BX.41HAIC  COLLOCATION  STATION  COORDINATES  ON  THE  2A6/1HU 
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2.19X.  4HYA1C.  MX.13HXAIS  VALUES--)  t 
no  >0?  I  Y*1  . NYS 
YC=YAIC( IY.NS) 

202  WRITE  (6.203)  YC . ( XA ! C ( I  X. I Y . NS ) . 1 X*1 , NX$ ) 

NYS=NYCS 

NXSsNXCS 

rr  (Nys  .Ee.  o  .or.  nxs  .eq.  o>  go  to  205 

2D0  CONTINUE 
’05  RETURN 

203  fORMAT  ( t HO , 1 2X. 5E1 7 .6/( 1 H  . 29X. 4E1 7 .6 ) ) 

30  VEl=EM*AS 

QsO.S^RHO'VElinZ 
RV*i . n/EKR 
RRsXl/2.0 

WRITE  (6.220)  FRFQ( IFR > , BR. EKR. RV.EH. VEL. RHO. 0 

220  FORMAT (1  HI . 30 X  . 50HHUGHES  AIRCRAFT  CO.  TRANSONIC  AIC  PROGRAM  (CONT 
1-D>////9X.28H  OSCILl  ATORY  FREQUENCY  (CPS > , 4X .  IPE1 2.6 . /I  HO » 9X.  15HRE 
2FERENCF  CHORD. 4 X, l PE12.5. /I  HO » OX . 30HREDUCED  FREQUENCY  (REF.  CHORD) 
3.4X.1PF12.5./IH0.9X.29HREOUCEO  VELOCITY  (REF -  CHORD ) . 4X, 1PE12.8 , 
4/1HH.9X.23HFRFF  STREAM  MACH  NUMBER. 4X. 1  PEI 2.6 » /1H0 » 9 V,  2  0HFREE  STR6 
5AM  VFLOCITY.6X.1PE12.5./1H0.9X.  /HDFNSITV,4X,0PF!».2./iH0,9X,33HDYNA 
6MIC  PRESSURE  ( i /?*RHO* VEL *»2 ) . 4X. IP61 2.5. //// ) 

WRITE  (6.221) 

221  FORMAT! ///35X. 14HAFR0DYNAMIC  INFLUENCE  COEFFICIENTS. //'• X.2HRL.1AY, 
12MIM»10X»  2HRL # 1  OX . ?H !M. 1  OX » 2HRL *  1 UX.2HIM.10X>  2HRL » 1  OX » 2M1M.10X.2HR 
1?L»1 0X.2HIM. / ) 

NROwSsNYW 1 NG*NXW I NG*NYCS»NXCS 
DO  222  NROUsl.NROWS 
WRITE  (6*223) NPOW 

WRITE  (6.224)  t AIC(NR0H.NC0L).NC0L*1,NR0WS) 

223  FORMAT  (/  5HR0W  *  I?) 

224  FORMAT  (1P1UF12.4) 

222  CONTINUE 

return 

40  NWxNXWl NG'NYWI NO 
-  NC*NXCS*NYC$ 

NT«NW»NC 
NW1 sNW+1 

GO  TO  ( 81 . 82 » 83 , B4 ) . LPUNCH 

81  CONTINUE 

DO  301  1=1 . N W 

PUNCH  85.  ( A | C ( I . J). J*1 .NW) 

301  CONTINUE 

HR  FORMAT  (1P6F12.6) 

RETURN 

82  CONTINUE 

DO  302  I  *NW1 .NT 

PUNCH  85.  ( A  I  C( I . J) . JaNWI *  NT ) 

302  CONTINUE 
RETURN 

83  CONTINUE 

DO  303  1*1. NW 

PUNCH  86.  ( A  !C( I . J) . J*1 . NW) 

103  CONTINUE 

,  DO  304  MNW1 »  NT 
PUNCH  86.  ( A  I C(  I  . J ) . J*NW1 . NT ) 

104  CONTINUE 
RETURN 

84  CONTINUE 

00  305  |«1, NT 
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T 

PUNCH  fl*.  ( A ! C ( I >  J ) « J=1 #  NT ) 
T05  CONTINUF 

T  mo  return 

1  END 


i 


I 
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rnAiN  n a  i  n 

SUBROUTINE  i)  a  i  h 

CONPlF.X  VPJC. hS.PHIW.CK 

COMPLEX  CZERO.PH1 .PHITF.DPH1 .SPHl 

COHHON/Cl/KHnxa'»(iO).XF(*>).YE(  ' ) .  AR<  3  ) ,  XI  ,  XP .  X.1 .  X4 ,  Y  '  ,  Y2 .  BETA .  MBS 
COHMON/CP/AS . NMARH*  F  NACH( A ) .  NFREQ. FRFO( X  ft) . NMODE.  HSURF . LPUNCH 
ROMMON/C.l/VPfR(8O*1‘>),nS(P02‘»).PHIH(50).CK(40  > . UXE ( 6 > , TP  I , KF 
COMMON/C4/MOR(1  0  0  >.NBLUflll)#FO.  I FR . XL , NS . NTH. NBM. NBT 
COHHOH/C*»/X#  Y  .DX.DYrEM.EK.EKB.FKR.NP.MP.MB.  NROX » KOhfc  .  HOi)F 
COMMON/CA/CZFRO. PH  I » PH  I  TE » I)PH1 .  SPH I  *  RHO*  NXCS .  NYCS»NYoX(40) 
COMMON/CB/XAtC(in,H!,,M,YAlC(  |h.P),NXBX(4ii).NXBXCS.NxMIN6.NYMING 
RE  Ah  (‘>  *  1 1  )  (XF(I>. 1=1.5) 

READ  (5,11)  (YF< I  >,  1  =  1 .3), AS 

READ  (5 , 1  <? )  NMACH.KF  , NFREQ. NBW. LPUNCH 

REAIM5,  1 1  )  (FMACH( I ) . 1=1 .NMACH) 

REAR (5 » 1 1  )  ( FRFQ( l ) , I  si , NFREQ ) 

NSURFs? 

IF(xE(4).LT.XE(5> >  00  TO  t« 
nsukf  si 

XE(4  )  =  XF(.1> 

XE(‘>  >*!<FU) 

in  REAh  (*5,12)  NXWING.NYMING.NXCS.NYCS 
REAR  (5.11)  (YAIC( 1.1  ). 1  =  1 >  NYH I  NO  ) 

IF  (NXCS  .Nt.  (')  READ  ( 5 .  1 1  )  (  YA  !C(  l .  9  ) .  I  =  1  .  NYCS ) 

READ  (5.11)  (  (  X  A  I  C  (  I  »  J .  1 ) .  1*1  ,NXM1NG),J=1  ,  N YW I NG  ) 

IF  (NXCS  .NE.  <D  RE AIM 5 , 1 i )((XAIC(t«J.P). 1  =  1. NXCS). Jrl.NYCS) 

NMODE  =  NXW I NG*NYWI NO*  NXCS«NYCS 
RHOsI .0 

11  FORMA I( 6El? . n ) 

IP  FORMA  T( A  II? ) 

RETURN 

END 
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COSTS 


CSTS 
slo(  k  data 

COMPLEX  CZERO*  PH  I » PHI TF»  DPH I • SPHI 
COMPLFX  VPIC.nS.PHlW.CK 

COMMON/C.T/VPIC(ttn,1»)),nS(/,«2,i).PHIM(50).CK(4i‘)»OXEC()>j  TP|»KF 
COMMON/ C6/C ZERO*  PHI  *  PHI TE • DPMI • SPHI » RHO*  NXCS*  NVC$»  .ViPXMP  ) 
DATA  CZERO/(d.O,n.fl)/,  TPI/6.^«318S4/ 

END 
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CPOT’H  POT7H 

SUBROUTINE  POT?H 

COMPLEX  C ZERO#  PH? . PH l TF  #  DPMI . 5PK I 
COMPLEX  VPIC . OS# PHI W# CK 
COMPLEX  CEX 

COMMON/Cl/KBOX(l«  lO  > .  XF  <  *>  ) .  YF  C  < ) .  AR<3  > .  XI  ,  X?.  X* .  X* ,  Y  •  .  i’d .  HETA ,  NbS 
COMMON/C?/ AS. NNACH#FHACH<6 >» NFREQ# FRFU( 1  ft > . NMODE, NSUwf #L PUNCH 
COMMON/CVVPJC<8ll.1M.nSO»ni>‘5).PH!W<'>0>#CK<4i'>.DXE(M.TPI#Kf 
COMMON/C4/MOB(1  AO  )  .NBLdmi  >#FO.  I  PR.  XL#  NS.  NTH#  NSW#  NR  T 
COMMON/C*>/X,  Y»  DX  #  DY .  FM.  EK .  FKR#  f-KR#  NP»  HP#  NB  .  NPOX  #  KODfc  .  HOOF 
COMMON/Cft/CZFRO.PHI.PHITE.OPHI .  SPHI » RHO#  NXCS  #  NYCS#  NYnX  <  4f) ) 
C0Hn0N/C8/XA  IC(in.1l),^).YA!C(li'#P)#NXBX(4ij)#NXRXCS#NyW!N0#NYW!Nb 
HsP#N08<  NBOX ) 

NsM|Nfl(N80X,  »*») 

DKspKB 

l)KPrOK*»? 

HI =M-t 
l)KRrf)KP/R,n 
DK4=?.0*DK8 
0K1J'  =  DXP/1P." 

CM  =  »'  .*» 

F)H=nK*n.5 
nn=i  .*>*1)0 
DpS' « <I«DK 
npMsDD 
Dial'.  >">*DKP 
R‘>  =  I)K#»/P4.n 
DO  ‘  1*1. M 

B  ?  a  ii  •  i| 

R4  =  /> .  «»/|lM 
R^  =  H^/'H4-DH 
R.ls-D 

lMs|lH*B4*B5 

D4sIiKH«B4 

n04:?.ll*D4 

CN=  i  .  it 
C s  ii  . 

C4  =  c .  i| 

C/sti .  «| 

CH  =  ii  .  il 
DO  ;  J=1 #N 
A  1  a  HM/CN 
C|  ri:N«  COS(Ai  I 
C;,!'-CM«  S  I N <  A  I  ) 

CAM  CSINIAI  #(:*>.  C") 

C‘>*(  M»C‘> 

C6»-CM»CA 
Cvrrl  -C.l 

ci  n.-n/-cn 
Ci  i  s  c*»-i;7 

ClP.-Cft-CB 

VRFt  B  MCfl-Bi  *ci  « 1-B1  »C1  i-RP*Ci<J 
V|MtBl«n9*B,i»i:ni-H»)#C<|4B?#Cll  -R1*C1Z 
VPh;{  I  .  J )  sCMPLX?  VRF  #  VIM) 

«M  C.tsfl 

C<Mf  v 

C/-I,b 

r.nsrf. 

HI  =  l«1  - f> l 

B4rM4-D4 
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n4  =  I»4  »ni)4 
CN=CNf?.fl 
?  CON7 I NU£ 

CN*(:H»1  .n 
OH=nM»nnH 

3  ODHsODH*Pn 
00  •»  jsl  ,  N 
no  4  !  =  1 #  Ml 
K~H~ ! 

4  VPfR(K»l . J)=VP!C(K*1 .J)-VPIC(K.J) 

•»  VPfRf  I  »  J)s?.ii»VP!C(1  .  J) 

CM-; n .  i» 

OM  =  n  <  il 
ODM^OK 

no  i?  is;  »m 

C/sll  . 

C»S|...{  : 

CVn. .  ti 

cin^n  .n 

P1SII..J 
P/'S  I'  .  *1 

CNs  l  •  <) 

R6sii .  1  P 

no  m  j=i , n 

A1 STM/CN 
A?s|iM/CN 

IF  (A1-II.2)  7.7,* 

7  BlrP.il-AI*#?/  1.0 
B?s-DK/(A.0*CN) 

r,o  10  i 

*  R.ls  S I  N(  A1 )  /  A  > 

Rl=  >  .  il  * B 3 

R?  =  (BI-  C0S(A1 ) ) /A?-0H/CN*8J 
R  R.is  C0S(A2)/CN 
R4*  SJN(A2)/CN 
C.isf'1  *B.1«H?*R4 
C4sl*?»R.i-H1*B4 
RbsnH#CN 
Clsh*»C4-2. 1) »C  1 
CPs-?.n»C4-B*>tC.I 
Cbrn  -C/ 

C6*rP-CH 

P.trpp.RA«CN 

P4-M  DU  t  .*  »(CN-1  .  il ) 
vbf  -c*»-pi  *Cf»  *i»  '»r  t-p4*rv 
v  i  m  c  f>  *  p  i  »ct>  •  iM«r  i-p4*cin 
I  VP  I C  (  I .  J>  =  VP1C<  I  .  J>-»CMPIX<  VRF.  VIM. 

pi spi »nH 

PpsP?»CN*l)K'i 
CN*CN*?.n 
C/*r1 
CHsrP 
CVrll 
Cl  ft:.C4 
Rf» sMA  ♦  DK 1  P 
in  CONI  I  HOP 
CM*(;M » OK 
OH*  I»  H  ♦  DOM 
ip  ohm.  noM*mi 

0.1*1  K/(2.U»,1.  I  4  l  •»  V  ?  #>  •» ) 

At  *n .  il 
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no  14  j=i ,n 

CEX  =  DUCHPLX(SIN(A1  ).  nOS(Al)) 
no  i.l  !=1  » H 

vp?rc i . j)=cf:X*vPic( i , j) 

H  A  I  saI  »f>H 

RETURN 

fnd 
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•»Hv  , 


rPHIW  PHIB 

SUBROUTINE  PHIR 

COMPLEX  CZERO . PHI  *  PH  I TF#  DPMI t  SPH ! 

COMPLEX  VPIC. US.PHIM.CK 

COMMON/CI/KHnX(l«iMI).XF(B).  YE <  S > . ARC3 > » XI  #  fd  .  XI »  XA »  Y  i  ,  iH  ,  BFT  A  .  NMS 
COMMON/C?/ AS . NMACH#  FMACH<6  > » NFREO»FRf 0( 1  ft ) »NNODE»  NSUpF .LPUNCH 
CUMM0N/C3/VPIC(tt"  ,1  *»),HS(  5?«2*i  > .  PHI  H(50),CK(  A«>.  DXE(  6),  TPI,KF 
COMMON/ C4/HOR ( 1  Ofl  ) » NBL  ( 1 0 1| ) «  FQ •  IFR .  XL*  NS.  NTH.  NBM#  NR1 
COMMON/C»»/X.  Y.BX.OY,EM.EK.EKB»FXR»NP.MP»NB,NROX,KODt  .MODE 
C0MM0N/CA/CZFR0.PHl.PHlTE»DPHl.SPHI#RH0*NXCS.NYCS#NYoX<4«> 
COMMON/CB/XA  IC(lf>^  h  */)»YAlC(1  <•»?).  NXBX(  Ati ) ,  NXBXCS*  NXWINO*  NYWINti 
N0*Ml NO  ( NP*  1  *> ) 

00  Pft  I sP>  NO 

NllsNP-lfl 

•IR-HOB(NU) 

NJsNBL ( NU )  ♦  1 
DO  >0  Jsl , JR 
K*1 4 IARS(MP-J) 
nPHI  =  VP!C(K#  I  ) 

IF  (J.FO.l)  00  TO  Id 
K=MP4 j-i 

OPHI*DPHl»VPIC(K.  I  ) 

10  SPH|sSPHl*DPHI*OS(Nj) 

NJ*NJ4l 

RETURN 

END 
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rsn>  sn*p 

SURPOliT !  NE  Sn.'  (S.R.C.R.  T#  TR.  TH) 

COMPlfcX  C ZERO, PH  I .PH1TF.DPH1 .SPHI 
COMPLEX  VPIC. IlS.PHlW.CK 

0 1  HP  NSION  SH •>.4**)#R<4*,4'i)»C<ii>.4,i}.B(45.4*>i.T(49#4J5)» 

t  TRT  ■»•».  4*> ) .  TMM**,  4b  ) 

COMMON  'Cl  /XROXMO'iO).XF(b).YE(').AR(3).X1  »X?.X3»X4»Y'  , YP . BET  A  » NbS 
COMMON'C?/ AS • NMACH*FMArH(6)»NFRfcQ»FRFQ< » 0 ) . NMOCE , NSUPf . LPUNCH 
C0MM0N/C.l/VPIC(8fl.  «‘i),DS(?A2iM.PHllf(*ll)»rK<4'<  ).i)XE(r>)  .TPI.KF 
C0MM0N/C4/M0R(1  0  0  )  .NBlMOn  ),ro.  ifr.xi  .NS.NTM.NRW.NR1 
COMMON'Cb/X. Y.DX. OY.EM.EK.EKB.FKR.NP.MP.NB.NROX.KOOE  HOOF 
COMMON/CA/CZFRO.PHl .PHFTE. DPMI -SPHI .RHO.NXCS. NYCS.NYOXI^  • ) 
C.OMMON/C«/XAK(  1 0.1  n.P),  YA!C(  l  •*  , )  .  NXBX  (  4  0  ) ,  NXBXCS .  NyW  I  NO.  N  Y  M  I  Nli 
r  •  **  THIS  SURROUTINF  GENERATES  THE  RFAL  PART  Of  THE  SUBSTANTIAL 
C  •  DERIVATIVE  MATRIX  FOR  THE  VELOCITY  POTENTIAL 
MB=MOO<  NROX > 

NK>li 

DO  ID  1=1 .MH 
in  NH=NM»NXRX( I ) *NXRXCS 

no  ;o  i=i ,nm 

DO  pft  Jsl  ,NM 
PO  TM(!.J)s«.li 
DO  I  nil  |  SI,  MR 

IF  ( NXRX ( I )  .EO.  )  GO  TO  1U» 

NXS=NXRX( I ) 

CALI  BMAT  (NXS.NRSB.NCSB.B) 

CAM  THAT  <NXS.l  . I . I . MS  I ZE , * . I • R > 

DO  ’Oi  MR  =  1 »  MS  I ZF 

DO  tni  mc=l,ncsb 

TR(MR.MC)=ft.o 
DO  1 01  MRC=I *  MS  I 7h 

1  <H  TR<mR.MC)sTR<MR,MC)«T(MR,MRC>*B(MRC.MC> 

CAM  CMAT  (NXS • I • ' > 1 , NR SC, NCSC . P . C ) 

DO  iOp  MRsl.NRSC 
DO  i OP  MC=1 .NCSB 
T(MR.MC)sll.i) 
no  . OP  MRCsl , NCSC 

UP  T  ( MR » MC )*  T ( MR . MC ) ‘ C ( MR , MRC MTR(MRC.MC) 

XROW=n 

DO  Mil  |I  =  1.! 

MO  KROW=KROW*NXHX <  I  I  ) 

KROW  =  KROW-NXRX(  I  ) 

DO  *  «•»  LR  =  1  .  NXS 
I  ROW  =  KROW*LR 
510  1  H  i|  1.0*1  .NXS 


I  CGI  =KROW«LO 


1  mi  f  M  Cl  DOW.  L  COI  >  -  T  ( I  R.LO) 

I  nit  CONI  I  NIK 

II  (.IXBXOS  .11.  V  >  GO  TO  408 
no  Oil  1*1  .MR 

CAM  HMA T  ( NXMXCS • NRSH , NCSR.  R ) 

CAM  (MAT  (NXHXCS.1 I .MSIZF. MT.R) 

no  MM  MR=1  .MSIZF 

DO  MM  MC*1  ,  NCSB 

TRT  MR . MC  )  *0 . n 

DO  PO)  MRCs) .MSIZF 

?01  TR(  MR,MC)=TR(  MR,M(;)*T{MR.MRC)»P(MRC,MC) 
CAM  CMAT  (NXHXCS.  I.P.P.NRSC.NrsC.  MC) 
DO  /OP  MRsl.NRSC 
no  POP  HCsI.NCSR 


T  ( MR.  MC)  sll.li 


I 

I 

I 

I 

I 

I 

I 

1 

I 

T 
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*&***•  J*>*>**1  * 


no  hnusj , nr  sc 

r(Mk*Mr  >:T(MR.HC)<C(HR.HRC>»Tlt<HffC.HC) 

KROW  =  !l 

no  :•»•!  IJsl  ,  MM 

*'»•'  KROW=KROM<NXRX<  !  J) 

KROW=KRO«*< l-l ) *MXBXCS 
DO  ,'0,i  LR  =  1  .  NXRXCS 
NROW  =  KROW*  LR 
KCOt  =  KROW 

no  ✓  ««  lc=i , nxrxcs 

NHOI  cKCOULC 

,n"  TH(NR0W,NC0L)-T(LR. LC) 

CONTINUE 
'•in  CONTI NUF 
RETURN 
FNO 


CTRAMP 

SUBROUTINE  TRAMP  ( HIT , MROWS. KCOLS . S> R, C» R . T » TR . T| , TM > 

COMPLEX  CZERO »  PH  I » PH!  TF ,  OPH  l  .  SPHI- 
COMPLEX  VPIC.DS.PHIH.CK 

0  IMF  NS  I  ON  S(m.4S),R(4‘>,4'>),C(4‘>.4rO,B(4'5,4*),T(4‘>.4‘.  )»TR(45.»M. 
1  T!(4S.4*>),TM(45,4&) 

COMMON/ Ct  /KBOX (  ) .  XF(5  > .  YF<  3 ) .  ARC  3  ) .  Xl  ,  X? .  X* ,  X4 .  Y  i  ,  Y* ,  BE  T  A  ,  NBS 

COHHCM/CP/AS. NMACH. FMACH(6 > » NFREO. FRFQ( 1 0 ) . NMODE, NSUPI  , LPUNCH 
COMMON/C.l/VPIC(»n,m>,nS(?nS?H).PHIM<»>0>.CK(  40  >.  OXE(6 1,  TPI.Kf 
COMMON/C4/MOR<  1  40  >  ,NBL(MH  f.FQ.  IFR . XL . NS, NTM. NBM»  NRT 
COMMON/ C^/X»  Y,  DX.  I)V,  EM. EK .EKR.FKR, NP. HP. NH, NBOX, K0DE  .  MOl)F 
COMMON/CA/CZFRO. PHI  *  PHI TE , OPH I • SPHI #RHO* NXCS • NVCS»NYnX(4M) 

COMMON/ CH / XA  IC(10*1  h  ,  ?  ) ,  VA  ICC  I  •' ,  »  ) .  NXUX ( 4 ll  ) ,  NXBXCS.  NXM I  NO#  NYH I N(i 
MHsMOH(NBOX) 

KCOI SsNXUINR«NYHINO«NXCS*NYCS 
KROHSsMH*(NXMINO*NXCS) 

C  •  ZFRO  TM  MATRIX  FOR  SPANHISE  INTERPOLATION 
00  Pfl  1st, KNOWS 
no  '/O  Js  1  » KCOLS 

?0  TM(l»J)sfl.O 

C  •  SPANWISE  INTERPOLATION  (NINO) 
if  (Nywing  .fo.  o)  no  to  1099 
no  m«n  mi.nxwing 

CAI I  HMAT  (NYWING.NRSB.NCSB.B) 

CAM  TMAT  (NYWING.?.1 , T.MSIZF. » ,T»R> 
no  1O.1l  MRs  I  ,  MS  I ZE 

no  1 11  if «  mc*i  -  ncsb 

TR(MR,MC)s0.n 
no  lO.ll  MRCst.MSIZF 

mm  TR(MR.MC)=TR(MR.MC)*T(MR.MRC>»R(NRC,MC> 

CAM  SMAT  ( MR . NYU  I  NO , 1 , NRSC, NCSC  >  S  > 
no  1O1IP  MRsi  .nrsc 
no  1  on?  MC* 1 . NCSB 
T ( MR »  MC  )  •  U 

no  1  no?  mrc=» .ncsc 

10 II?  T(MR»MC)*T(MR.MC)*S(MR.  MRC  )  *TR( MRC »  MC  ) 

KROW* (1-1 )»MR 
00  1  ORII  L Rs  1  .MR 
LROW=KROW*LR 
KCOI *(  1-1 MNYWJNO 
00  1  Oflfi  ICsi  .  NYW I  NO 
I.COI  sKCOl.*LC 

10»»n  TMII  ROW. I  COI.)-T(IR.IC) 

Ifliin  CONllNUF 
l«9'»  CONIlNHf 

C  mi  SPANN | SE  IRANSrORMATION  (CONTROL  SURFACE ) 

II  (NYCS  •FO.  «>  00  TO  ?999 

no  illilO  mi, NXCS 

CAI I  HMAT  (NYCS. NRSH. NCSB. R) 

CAM  IMA T  (NYCS.?.?, I.MSIZF. 1 ,T.R) 

no  :  mu  mr*i . msizf 

no  /Mill  MC*  1  .NCSB 

TH(MR.MC)sfl.n 

no  /Mill  MRC=I  .  MS  I  IF 

PR 'll  TR(mR,MC)sTR(  MP,HC)«T<MR,MRC)«H(MRC,MC) 

CAI |  SMAT  (MR, NYCS. /.NRSC. NCSC. S) 

Of)  /fin?  MRS  I  .  NRSC 

no  >  n.i?  Me*  1 . ncsb 

T  (  MR.  MC)  -II.H 

no  ;  On?  MRCri , NCSC 

?0M ?  T ( MR .  MC  )  S  T  (  MR ,  MC  )  ♦  S ( MR .  fIRC  ) •  TR(  MRC .  MC ) 

27S 


KR0W  =  MH#NXUINI5M  l-i  )»Mfl 
00  LRsi .HR 

LROW=KROU*LR 

KCOl  =  NXUING*NYUINGM  1-1  >*NYCS 
no  I’ n m n  LC=1  .  NYCS 
Lem  =kcol»lc 

?(HP  TM(  I  ROW.  L COL  )  =  T( LR* 1C  1 
?(Vin  CONTINUE 
?9  v9  CONTINUE 

r  •••  PE ARRANGE  ROUS  AND  COLUMNS  f OR  CHORDWtSE  TRANSFORM* I j ON 
CAH  RMAT  (MR. NXUING. Mfl.NXCS. MSIZE, R> 
no  HIM*  MRsi  .MSIZE 
no  hi*> it  mc=i. Knots 
T I (MR. MClsn.o 
no  x fi  *> It  MRC :  I  .  KROUS 

S' 0 *»0  TI  (MR.MC)sTI  (MR,MC)*R(MR.MRC)«TM(MRC.MC) 
c  ZERO  f M  MATRIX  FOR  CHORDU I SE  INTERPOLATION 

Mem  s=mhmnxuing«nxcs> 

MROwS=n 

no  in  i si, mr 

m  MHOUS=MROHS« NXRX( I HNXRXCS 
no  f.(l  1st,  MROHS 
no  /. n  jsi.mcols 

'.o  TM(  I ,  J )  sll .  0 

C  CHOROUJSE  INTERPOLATION  (NINO) 

IF  (NXUING  «  BQ.  0)  GO  TO  1999 

no  .mno  1st . mh 

CAll  RMAT  (NXUING, NRSH.NC$8*R) 

CALL  TMAT  (NXUING. 1 ,1 , 1, MSIZE, t ,T,R> 

00  >0  n  1  HRs  |  .  MS  I 7E 

no  mm  mcsi.ncsr 

TR(MR,MC)s0.n 

00  mm  MRCsi.MSIZF 

1 0  •»  1  TP  (  MR .  MC  )  S  TR  ( MR ,  MC  )  ♦  T  (  MR ,  MRC  1  *B  ( MRC ,  MC ) 

CAM  CHAT  (NXUING. I. NIF.1 ,NRSC.NCSC,1 ,C) 

00  .'ll. I*  MRsl.URSC 

no  .% « *i v  mcs  i .  ncsr 

T  (  MR ,  MC  1  sit ,  |. 

no  « ,|  v  MRC-  1  ,  NCSC 

.inn?  T(MR.Mn)s|(MR.MC)'C(MR.MRC)»TR(MRC.MC) 

KROUsil 

no  -in  11  =  1,1 
AH  KROW  =  KROU*NXRX( I  I  1 
KROW  =  KROM-NXnX( I  ) 

.U"NXHX(  I  ) 

no  .m«n  i  Rs| .  j.i 
I.R0W8KR0U*LR 
KCOl  -  (  I  - 1  )«NXW  I  NO 
no  *0 «0  ICSI. NXUING 
i  cm  =kcoi  *lc 

mull  TM(I  ROU.ICOI  itTCI  R,tG) 
mull  CONTINUE 
.1999  CONTINUE 

C  #*•  CHOPOMJSfc  INTERPOLATION  (CONTROL  SURFACE) 

If  (NXCS  .EO.  n )  ()0  TO  4999 

no  4«!j<l  1  =  1  ,  HR 

CAll  HHAT  (NXCS, NRSH, NCSR, R) 

CAH  THAT  (NXCS.1 I,MSIZE,1 ,T,R) 

00  4  0 1|  1  MRe  j  .MSIZE 

no  'inm  mc*i  .ncsr 

TR( MR*  MC  )  =  (l  •  n 

:75 


f)0  40(11  MRC *  I  . MS  I ZE 

4001  TR<MR,MC>=TR<MR,MC>*T<MR,MRC)*R<MRC»MC> 

CALL  CHAT  ( NXCS . ! . N IF . ? » NRSC . NCSC, 1 » C ) 

00  40(1?  MRsi  .NRSC 
00  400?  MCa 1 .NCSA 
T( MR»  MC  )  sO . 0 
00  40u?  MRC=  > » NCSC 

400?  T<MR»MC)=T<MR.MC)*C<MR.MRC>*TR<HRC.MC> 
KROW*LROHM  1-  l  ) •NXBXCS 
no  4  0 h 0  LR* t . NXBXCS 
NHOWsKROW+LR 

KHOI  -MR«NXHI ng •  (  l-1  >*NXCS 

no  4fi«n  lc*i  . nxcs 

NCOl  -KCOl.  *1  C 

4»H(I  TM<NROW,NCOI  ).-T(tR.LC) 

4l)*m  CONTINUE 
CONI  I  NUF 

no  •> 0 0 1  MRSJ  .  MROMS 
no  *  001  MC* 1  . KCOLS 
TR t'  MR .  MC  )  *0 . 0 
00  ‘.«01  MRC  =  l.MCOLS 

•>«  tl  TR<  MR»  MC )  =  TR  ( MR»  MU )  ♦  TM(  MR » MRC  )  »  T  I  ( MRC#  MC ) 

CALI  RMAT  (NXWING.NVMINO.NXCS.NYCS.MSlZfc.R) 

no  ».n«>n  1=1 , mroms 
do  »>n»»n  jsi.msizf 
T|( I . J)*n.n 
no  Mi*,n  K-i  .msizf 

bOvO  T!U*.J)stl(  I  ..l)»TR<  !.K)*R(K»  J> 

00  • o 7?  1=1* MROMS 
no  M”>?  J-l  .  MSI  ZF 

Mv?  TRU.  J)sTI(  I .  J) 

RETURN 

FNO 


j 


*  • 


CCHAT 

SUBROUTINE  CHAT  (NAICPX, I Y  »  N I F . NS . NRS, NCS. N6 • C  ) 

COMPLEX  C ZERO. PH  I •  PH  I TF , OPHI . SPM I 
COMPLEX  VPIC.OS.PHIW.CX 
DIMENSION  CHS  .  4*> ) 

C0MM0N/Cl/KB0X<lfMfl).XF(5),YF(  < ) .  AR(  3  ) .  XI  ,  X? .  X3»  X4  .  Y  •  »  YV.BrTA.NBS 
COMMON/C?/ AS . NMACH . f  NACH( A  > »  NFREO*  FRFQ< 10  ) . NMODE*  NSUOF *  LAUNCH 
COMMON/C3/VP|CHO.lS),DS(P02‘O.PH!H(SO),CK(4n),OXE(6  wTpl.KF 
C0MM0N/C5/X. Y.DX.OY.EM.EX. FKR» FKR. HP. HP*  NB . NBOX, RODE . MO|)F 
COMMON/C a /CZFRO. PHI .PHITE.DPH! . SPH l , RHO . NXCS . NYCS. NYnX < 40 ) 
COMMON/C«/XAir(  lO.IttH).  YAlCnit,P).NXBX(4U).NXRXCS.NvNlMO.NYMIMG 
r;  ...  FOP  CHORDWISF  INTERPOLATION 
r  *•*  NPT‘>  =  NUMRtR  OF  CHORDWISE  MACH  BOXES 
r  **•  NAliPx  =  NIIMRFR  OF  CHORDWISE  AIC  CONTROL  POINTS 
C  ***  |  r  SPAN  NIIMHFR 

n  Nir  =  CONTROL  FOR  DIFFERENTIATION  <1*NQ  DFRIVATIVF  aND  ?*DO/DX) 
r  NS  •  SUPFACI  (isHINO  AND  V=T4IL> 

IF  (NAICPX  .OT.  I)  GO  TO  1 
NRS=NXBX< IV) 

IF  (NS  .FQ.  v>  NRS*NX8XCS 
NCS=NAICPX 
DO  t  1=1 . NRS 
DO  i  J= 1 » NCS 
1  C( f , J)=0.a 
GO  TO  ion 
3  NRSsNXBX(IY) 

IF  (NS  .EG.  ->)  NRS  =  NXHXCS 
NCS=3*(NAICPX-9) 

DO  4  1  =  1.  NRS 
DO  4  J=1 . NCS 
A  C  (  1  .  J  )  =  (I  .  U 

100  IF  (NCS  .OT.  A)  00  TO  *00 
IF  (NCS  .EQ.  A)  GO  10  400 
go  to  (pnn.vno ,j on), ncs 
C  •  **  TWO  CHORDWISF  AIC  CONTROL  POINTS 

?on  no  vm  i =i . nrs 
c<  I  .1  >  =  1.0 

R(t.?)*XBOX< I. TY.NS.NE) 

IF  (Nir  .EO.  V)  C( 1,1  )  =  0 .  U 
IF  (MIF  .EQ.  /)  C (!»?)  =  J  . (I 
VI 0  CONTI NUF 
RETURN 


r.  mi  THRIF  CHORDWISF  A|C  CONTROL  POINTS 
Tun  1)0  ..to  |  =  i  ,  MRS 
0(1.1  )  =  l.  |» 


■»*> 


r 


C ( I . V  )  =  XHOX( I . T  Y.NS.NE) 

C(  I  ..«)*xnnx(  I  .  I  Y  .  NS,  NE  >  *•  V 
I*  (Nir  .10.  ' )  (7(1.1  )  =  ll.ll 
II  (Nil  •  E  0 .  •>  Cd.RHl.n 

I)  (Nir  .EO.  ')  C(  I  ..!)*?.  II  •  XH  OX  (  I,  |Y,  NS.  Nk  ) 
(Mi  CONI  I  NIK 
Rl  TURN 

TOUR  CHORDWISi  AIC  CONTROL  POINTS 
411"  DU  I II  HI  ,  NRS 
NX=NA ICPX-1 
»(l  'iflA  .1=1  .NX 

If  («.*>•  CXTNTM.  I  Y.NS.NE  )♦  XI NT(J»1 .  IY.NS.NF)) 
)  >  )  l.O  TO  40/ 

4  i  A  CON  1 1  Nil! 

NX=NA|CPX 
GO  10  40B 


•GT.  X«OX( T. | Y.NS.NE 
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4l|7  NX  =  J 
4il«  KC  =  1 

IF  (NX  .GT.  >)  KC=4 
C( I.KClsI  .0 

C( I .KOI >=XH0X( 1 . I Y.NS.NE) 

C ( I ,KC«?)*C( I #  KC* 1  )*•? 

IF  (NIF  .EO.  ?)  C( I » KC)  =  0 . 0 

IF  (NIF  .EO.  ■>)  C( I .KC*1  )*1  .0 

IF  (NIF  .EO.  n  R  ( I . KC*?  >s?. rt*X80X( I » l Y»  NS. NF ) 

4 i n  CONTINUE 
RETURN 

R  •  .OT.  FOUR  AIR  CONTROL  POINTS 

Nun  no  •*  1  u  i*i  . NRt) 

NX=NA|RPX-1 

no  ••«<,  j*i  # nx 

IF  (0.*>MX!NT(.),  IY.NS.NE)»X1NT(  J*1  .  IY.NS.NF) )  .OT.  XnOX  I  I .  I  Y .  NS.  Nk 
1) )  (iO  TO  1>0  / 

Nis*  CONIINUE 
NXsNAICPX 
00  10  *>!»« 

Nil  7  NX  =  J 

•iuH  IF  (NX  .IT.  \)  00  TO  *>N(I 

IF  (NX  .GT.  NAICPX-5')  GO  TO  *»«« 

KC?(NX-?)*.T*» 

C( 1 ,KC)s1 .0 

C(  I  ,KCM  )*XBOX(  I .  IY.NS.NE> 

C(  I  .  KO?  >*C(  I .  KC ♦  I  >••* 

IF  (NIF  .EO.  /)  CU.KCM  >*1 .«» 

IF  (NIF  .EO.  V)  C( I .  KC*?)  =  XB0X( I  .  IY.NS.NF) 

IF  (NIF  .EO.  7)  R(I,KC)*0.fl 
GO  TO  Ni« 

N  >0  R(  I  .1  ) - 1  •  (I 

R ( I  .?  >=XB0X( I . 1 Y.NS.NE) 

R(  I  ..Y)sC< 

IF  (NIF  .EO.  ')  C( I .1 )*0.H 
IF  (NIF  .EO.  n  C(I#P)*1.U 
IF  (NIF  .EO.  V)  C( I,1)=XB0X(  I. I Y.NS.NE) 

GO  TO  5 1  A 

Nl.fl  C(  I .  NCS-P  >*1 .  (' 

C( I . NCS-1 )*XROX< I. (Y.NS.NE) 

0(1.  NCS)=C(  I .  NRS-  !)••/? 

IF  (NIF  .EO.  >)  C( I . NCS-? ) *0 . 0 
IF  (NIF  .EO.  n  R(  I. NCS-1  >*J.i) 

I)  (NIF  .EO.  /)  C(I.NCS)*XBOX(l#IY.N$#NE) 

•>l(l  CONIINUE 
RETURN 
FNO 


CTMAT  THAT 

SUBROUTINE  THAT  ( NPTS. ND. NS. I Y . MS  I Zfc . NE» T» R  ) 

OIHKNSION  T(4*>,4*’)*R(4*»#4‘>) 

COMMON/OR/XAlCao.nt.P),  YAlC(l"»'»).NXBX(4U),NXBXCS.NxHlN0.NYmNe 
C  ***  GENERATES  (T>»M-l)  MATRIX 

H  ***  NPTS  =  NUMBER  OF  AlC  POINTS  ALONO  STRIP  IN  ND  DIRECTION 
C  *»*  MSI/F  =  ORDER  OF  T  MATRIX 
f  •••  NS  =  SURFACE  (UMING  AND  ?*CONTRUL  SURFACE) 
r  **•  ND  =  INTERPOLATION  DIRFCTION  (l=CHORDNISE  AND  2*SPANWlSE) 

IF  (NPTS  .LT.  A)  MSIZEsNPTS 
IF  (NPTS  .01.  3 )  MSIZE*3«NPTS-6 
DO  I  J=1 • MSI 7F 
DO  I  K«1 .MSI7F 
1  T(.».X)s(i.U 

IF  (NPTS  .OT.  «)  00  TO  »>n«n 
00  10  (pnno.Pimn.  > ii n •  4 u n o > »  NPTS 
C  •••  NPTS=?  (TWO  POINTS  AlONO  STRIP) 

?nun  to  .1 ) s )  .o 
T(  ? » 1  )  =  t  ,U 

IF  (ND  .EQ.  1)  T(l  .2)*X|NT(1.  IY.NS.NF) 

IF  (ND  .FO.  i)  T(>.P)sX|NT(2. IY.NS.NE) 

IF  (NO  .FO.  *)  T(  l  >P)=YA!C(l.NS) 

IF  (NO  .EQ.  ?)  T( ' • 9 ) *YA IC( 2  >  NS ) 

GO  TO  6000 

C  •  NPTSS 1  (THREE  POINTS  ALONG  STRIP) 

3000  TO  .1  )sl.O 
T(  ? .  1  )st.O 
T c r* . i  )si.u 

IF  (NO  .?Q.  >)  00  TO  )«10 
r  ...  NPTS*1  CHOROUISE  DIRECTION 
TO  ,P)  =  XINT(1  ,  IY.NS.NE) 

TO  .  O-T(l.X)**? 

T(  ? . ? )*XINT( ° . I Y»  NS. NE  > 

T(9,3)sm.2)*»2 
T(^.?)sXl.iT(T,  IY.NS.NE) 

T(  (.3  OT(  i»9  )•*/> 

00  10  6IHIU  c 

C  #.«  NPTS=1  SPANMISF.  DIRECTION 
3 fl  i  ii  T(l  .9  )sYAIC(  i  #NS) 

T(l..<)sT(l,^»./> 

T(9.P)sYAIC(*>.NS) 

T(>.3)=T(P.P)**P 
T(3.9>=YA|C( (,NS) 

T  (  3 . 3  )  s  T  ( .i ,  /  )  • «  9 
00  10  Mlflll 

r  •  ••  NPTS-4  (FOUR  POINTS  ALONO  STRIP) 

4fl*in  TO  .  1  )  =  «  .o 
T  ( ? .  1  )  =  1 .  i) 

T  (  3 , 1  )  s  1 . 0 
T(4.?)s1 .0 
T(*»,4)*t.U 
T  ( 6 . 4  >  s  1 . 0 

T( 3. 4) »- 1.0  * 

T(4.6)=-1.0 

II  (NO  .FO.  9)  on  TO  4010 
C  ...  NPTS- 4  CHOROUISE  DIRECTION 
TO  .9  HXlNTO  .IY.NS.NE) 

TO  ,  l)*TO  .9>**9 
T(P.?)sXlNT(P, IY.NS.NE) 

T(P..T)  =  T(2.9)*»P 

T  (  3,  9  )  =  ().•>•<  X INT  ( 9.  IV.  NS.  NE><  :<  I  NTH.  IY.NS.NE)) 
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°)  00  TO  *>*00 
(CHOROWlSF  DIRECTION) 


Tn.3)sTU»i' 

T(1,«5)s-T(3,'>> 

T(3.A)*.T(3,l) 

T<4,3)s?.0*T(\,2> 

T(4 .6 )a-T  <4* T) 

T<*.5>*X1NTM.IY,NS,NE> 

T(*>,6)sT(fj,b)**? 

T(A.*i)sxlNT(4,  IY.NS,NE> 
T(rf»A)*T(6,$)*«2 
00  10  60011 

v^ur^v.tv 

T(i » 3  )sT(i, ;;)••? 

T<9.?)cYA|Ct*.N$> 

Y(?,  <>=T(2«^)*»2 

TU.5)5-T<3,0) 

T(1,6)S-T(3,  i  ) 

T(4,3)S?.u#T(  1<?) 

T(  4 ,  ft  )ss»T I  4#  3  ) 

T<*.*)«YA1C( 3,N$) 

T(^i6)sT(5,^)#»^ 

T(A,*)&YAIC(4,NS> 

T{<S,6)sT(6((,)##p 

00  TO  «nnu 
•••  NPTS  .OT.  4 

I'll  ipT«*,0nrE°2  0)  °°  T0  ',*®0 

<™OROM!SF  DIRECTION) 
T<1.?>  =  xiNTn.|Y.NS,NE) 

TCI  .3)xT(l«2)»»? 

TO.I  )si  .o 

T<?,3)sT(?,?)»#2 

T(HfH  ZE»HSI2F*9)*i,h 

DO  *>0  |  o  Ns), NT 

NRr;<«  *»N 

NC*.>«N*| 

NPrN*^ 

T<NN.NC>=»  .» 

.»  ''f-NS.wp» 

•  T ( Nk» NO* ? )*| ( NRf HO* J )•#» 

NleNPfS-3 
DO  •»«/»«  Net  ,  NT 
NR*.<*n 
NCf.^N-/ 

T<NR.NC)*l.(i 
nHfr4t»NC«|  lat.R 

T ( NR  »  NO  *  3  )  a~1  ,  r» 
tfNR»| ,NC»4  )x-t.» 

T  <  M  <  HC  *  4  )  a  •»  T  <  NR  •  NO  « 1  ) 
T<NR*NC«9)a-T(NR*NC4?> 
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T  <  NP«  1  .  NC  *?):✓. UM(NR. NO  I  ) 

T(  NP«  1  .  NC»5  )  ?-T(  NR*  1  .  NO?  ) 

GO  TO  6flOU 

C  NPTS  .OT.  4  ( SPANMI SE  DIRECTION) 

■SSuft  T(1,1)  =  1.0 

T(1 ,?  )  =  Y*IC(i ,MS) 

T(1 .3)cT(l.?)»»2 
T(  ? .  1 

T(?.?)sYAlC<’.NS> 

T ( ? . 3 )  =  T< 2 . ?  )  »*2 
T(MSlZF»MSIZF-?)sl.ft 
T(HSlZE.HSiZF-l  )*YAIC(NPTS.NS) 

T( HS ! ZF » HSI ?r )=T(HS!ZE. MSI Z6-l)#*2 
T( MS ! ZF-1 » MS  I ZF-?  )* 1 .  U 
T( MS  I ZE-1  .MSIZF-1  ) * YA I C< NPTS- J .NS) 
T(MSIZF-1  ,MSI/F)sT<NSIZE-1 .MSIZE-1)«»2 

NT  sNPTS-4 
no  *3*i  1  0  Nsl  ,*jT 
NR:?M«N 
NCs.<«NM 
np*n*;» 

T(NR.NC)sl.„ 

TINR.NOI  >  =  YA IH(NP.NS) 

^•>10  T(NP»NO?)aI  (NR.NCM  )»»2 
NT=NPTS-3 
00  N  =  1  ,  NT 

NR  =  .<»N 
NC  =  .'«N-? 

T (NR.  NO *1.1- 
T ( NP*  I  .NOI  )=!.() 

T  (  NP  .  NO  3  )  s  -  1  .  it 
T ( NP* i ,NC*4)s-i  .0 

T(NR.NO)  )*)).'>•  <YAIC(N«1» NS)*YA NS) ) 
T(NR.NC*?)*T  (NR.NOl )*•? 
T(NR»N04)s-T(NR.N01  ) 
TlNR.NOOs-TINR.NO?) 

T<NRn.NO?)  =  ?.fl#T<NR.NOl ) 

5SV0  T(NR*l  ,NOO  =  -T(NR*  1  .NO?) 

C  •••  I  NVf-RT  T  MATRIX 
6nnft  CONTINUE 

CAII  MINV  (MSI7E.T.R) 

RETURN 

FND 


nnSIH  CSIN 

SUBROUTINE  CSIN(  XI  »li»S) 
r.  S I Nf  AND  COSINF  INTEGRAL  SUBROUTINE 

C 

h  C  AND  S  ARE  THE  INTEGRALS  OVER  T  FROM  1  TO  INFINITY  nf 
C  COS(XT)/T  AND  SIN(XT)/T 

c 

SG*1  .11 

X*X1 

IF  (X)  1,2.? 

1  SGs-SG 

x  =  -  x 

?  x?*x«x 

IF  (X-1.M  .<,.1.4 

n 

r.  FOR  A«S(X)  LESS  THAN  I  A  SERIES  FXPANSION  IS  USED 

c 

J  v-(((x?/^H.f-n.6)*.(is#X2*».u)«x?'i«.n-i.n)#x*i.^7u7vAj;i 
IJsUX.V45.n-1  .ft  )«x?/?4. 0*1.0  )*X2/4.U-.  5/721  ■>ftft^-ALOG(X) 

00  TO  5 
C 

r.  FOR  ABS(X)  GREATER  THAN  1  APPROX  I  HAT  I ONS  OF  HASTINGS  ARE  USED 
C 

4  P=V  <X?*1  9.^1941  19)*X?*47.4ll5.!ft)*X?*R»4V!.1.1/i)/(  (  (  (X2  »?1  .  161U5?) 

1  •X?*7U.i764V/.)»X2*^n.0aH?2/)*X) 

Os((<X?*?1..1«  )*X?*49.  71  9  7 /M»X?*5. 0*950  4  >/<(<<  X2.2*.  1/7955. 

I  *X2*119.91«9^2)»X?*;a.7«7876)»X2) 

CO*COS  (X) 

S I *S I N  (X) 

IJsQ«CO-P*SI 

V«P«C0*0*SI 

5  S*V*SO 
RETURN 
END 
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CMSIMEC  HSIMEC 

riINnT  I  ON  HSIMgCIM.M.L.A.B) 

COMPLEX  A  .  B»  0 
OIMfNSfON  A(M*i  ) . H( M . 1  ) 

no  Jft  1  *  I.N 

C  s  II. ft 

no  io  j  •-  i  .  n 

Ift  CsAMAXI (C. AHSIREALIAI I . J) ) >. ABS( A I  HAG ( A  < |, J)  )  ) ) 
f  r  (C.EO.fl.O  )  GO  TO  1  Olio 
no  ;•«  j  -  I.N 
/ft  A( l, J)  *  A ( | .  J)/C 
no  *o  j  -  i . i 
>n  nnj)  *  fl(i.j)/c 

l F ( N. EQ. 1  )  00  TO  /.**> 

MM  =  N  -  l 
no  /ftll  J  =  1  .NM 
C  =  n  .ft 
K  =  n 

no  ft  ft  !  =  J.N 

0  =  A RS ( RF AL ( A ( I  .  J) ) ) ♦ AHS ( A  I  MAO ( A (  I »  J ) ) ) 
tF(f..QF.D)  GO  TO  4 ft 
K  =  I 
C  r  n 

Ift  CONTINUE 

IFIK .EO.n.OR.C.LT.1 .F-7)  00  TO  lftftft 
IF(r.EO.J)  00  TO  /ft 
00  ‘.0  JJ  *  J.N 
0=A( J, JJ) 

A(J.JJ)  a  A(K.JJ) 

•>ft  A  (  K  .  J  J  )  *0 

no  /.n  jj  *  i  .l 

0=B< J. JJ) 

B(J.JJ)  =  B(K.JJ) 
ftft  B(K,JJ)sO 
/ft  0*1 . 0/A( J* J) 

JP  =  J  ♦  1 
00  8 ft  JJ  *  JP.N 
Hft  A< J, JJ)*A( J, JJ)»0 

•/ft  no  mo  JJ  *  » .L 
tuft  B( J, J J )*B( J. JJ ) *0 

no  you  i  *  i.n 
iril  .EO.  J)  GO  TO  ✓nil 
o-*a<  i .  j) 

no  mi  jj  *  ip. n 

lift  A( I . J J ) = A ( I . JJ)-0»A(J,JJ) 

no  i?n  jj  *  i.i 

I.'II  B(  I  .JJ)*B(  I  »JJ)-G*B(J.JJ) 

:’.ift  CON  I  I NUE 
?tlr>  OsA(N.N) 

IF  (AHS(REAI(0))«ABS(AlMA0(0)).LT.1«E*/>  60  TO  IftUft 
00  ’/111  J  *  1.1. 

/ 1  ft  R(N.J)*R(N»J)/0 

IMN.F0.1)  GO  TO  '30 
00  //0  I  =  I.NM 

no  v/n  JJ  * 

?/ft  HU.  JJ)=R(  I  ,IJ>-A(  I ,  N)*B(N.  JJ) 

v  >ft  msimh:=i 
pi  turn 

IIIIIII  HSfMH:*/ 

RETURN 

FNP 
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CRMAT 


SUBROUTINE  RMAT  ( NXW I  NO, NYHI NG • NXCS# NYCS . NS 1 7E • R ) 
OIMFN$ION  R<4s.4*>) 

HSI7EsNXMING*NVMINGiNXrS»NYCS 
no  IflO  I  * l »  MS  I 7E 
no  1fl«  J*l. #  MS  I  7E 

ttlf*  R(l,J)  =  n.O 

If  ( NXUING  .  FQ.  ")  GO  TO  ?*50 
K  =  1 
KK  =  1 

I l=NYMING*NXMING 

no  ✓ on  1*1,11 

R(  1  .K)M.O 
K  =  K 'NXHINO 

If  (K  .  (JT.  |  f  )  KK  =  KK  *  l 
If  CK  .OT.  I |  )  K*KK 
?n n  coni  i niif 
?*>«  CONTINUF 

If  (NXCS  .EG.  M  GO  TO 
1 I *NXCS»NYWt  NG 
K*NXW|NG*NYW!NG*1 
KK*NXUING«NYUING« I 
00  '(*.|  I*l,  n 
IK* |4NXWING«NYHING 
PC  F» ,K  >s1  .ft 

x=r . nxcs 

If  (K  .PT.  M.1I7E)  KK*KK  + 1 
If  (K  .GT.  MSI7E)  K*XK 
1(1(1  CONI  I  NUF 
CONTlNUf 
RETURN 
FNO 
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r  X  I  NT 


.  1*  ;; 


T 

I 


FUNCTION  X I NT( MX  #  NY#  NS  >  NE  ) 

nOHHON/Cl/KROX(tOOfl),XF<*).  YFCd.ARCd.Xl  #X*.  XJ.X4.  Yi  »  V<» » BETA  » MBS 
COMMON/C5/X, Y.nX.DY#EH.EK,EKB#EKR»NP.HP#NB.NBUA,KOnt .MOUE 
COHMON/CB/XA!C(lfl#1(».X).YAlC(  l (>»*>.  NXBXMu  >  ,NXti*CS#  N*W INO» NYWlNb 
IF  (NE  .OT.  1 )  DO  TO  400 
IF  (NS  « EO.  1 )  00  TO  ?00 
X|NT  =  XMC(NX- 1  .NS) 

RETURN 

*•'«  IF  ( FLOAT  ( NY  )  *DY-OY  .OF.  YF<?>>  GO  TO  Juft 
X  I  NTs  X A  I C ( NX  > I .NS) 

RETURN 

fun  IF  ( YAICCI. 1  )  .LF.  YF<?>> 

1  SLOPE  =  ( YAIC(NYMING. ) )- YE C / ) ) / ( XA I C< NX. NYNI NG . I ) -XA 1 1 ( NX , 1 # 1  ) ) 

IF  (  YAICd  .1  )  .GT.  YF(? ) ) 

1SL0PFs(YA|C(NYM!NG. I )-YAlC(!.l ) ) / ( XA |C( NX# NYM I  NO# l)-XAIC(NX#1 .1 ) ) 
IF  (YAICd  .  l  )  .LF.  YF( 9  ) ) 

I X|Nls(DY»FLOA|(NY)-OY-VF(/>+Yb(J ) ) /SLOPE  ♦  XA|C(NX,1.I) 

IT  ( YA!C( I # I  )  .GT.  YE(9)  > 

1  XINls(nY»FLUAHNY>-nY-YAind.n4YF(l))/SL0PE  *  XAIC(MX.).l) 

RETURN 

4-m  *IN!  =  l)X*(FLOAT  (NX  )-M  ) 

RETURN 

FNn 


CX  BOX 


FUNCTION  XBOX(NX.NY,NS.NE> 

COHMON/C1/KHOXnft|0  ).XF(*>) .  YF(  < ) ,  ARC  3  ) »  XI  .  X? .  X  U  X4 , 1  •  ,  Y'  .BFfA.NtsS 
COMMON  /  H*>  /  X  »Y#nX.OY»FM.FK.fcKR*FKR#NP.MP*NB»NROX.KOf)fc.HOl)F 
COMHON/C«/XAIC(t0.1ll.v»),YAlC(  1 H , ? > . NXBX< 4U > . NXBXCS, N»H I  NO, NYW i N6 
IF  <NE  .GT.  *  »  00  TO  mo 
IF  (NS  .FQ.  V)  00  TO  ?nu 

XB0X*I)X»(FL0AT(NXHX(1  )  >-FLOAT(NXBX(NY> >>  ♦  l)X*F|_OAT<  NX  l -»• .  *5#nX 
RETURN 

?00  XB0X*XE<4MDXMFL0*T<NX)-«.B> 

RETURN 

!•*<*  XR0X*0X»(FL0AT(NX)“t' 

RETURN 

END 
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n  ftMAT 

SUBROUTINE  HMAT  (NPTS. IRONS. ICOLS.B) 

OIMENSION  RH  ,.4S) 

C  •*#  «  =  fi( IRONS, T  COLS  >  MATRIX 

C  •**  NPTS  =  NUMB1P  Of  AlC  STATION*  ALONG  STRIP  (CHORUNlSE  OR  SPANNlSfc) 
ICOI S*NPTS 

IF  (NPTS  .GT.  GO  TO  ?ft» 

IROWSsNPTS 
DO  *>n  Isl  .  I  ROWS 

no  *>o  j*i .  tents 

B(  I ,  J )  =  II .  0 

IF  ( I  « EO.  J)  R(  I . J>*| .0 
*»«  CONTINUE 
RETURN 

Pun  I  RONS *6 « (NP1S-4 )«  > 

00  .<DU  |*1  ,  IRONS 

no  .>oo  j*i ,  icms 

.Tun  R (  I  .  J ) * 0 . 0 
R(1  .1  )*1 .0 
R(?«?)*1 . u 
R(  IRONS.  I  COLS  >  -  l  •  *l 

R(  iroms-1  .  irots-i  > *  1  .il 

IF  (NPTS  .EU.  4)  GO  TO  ADD 
K=NPTS-4 

no  i  i*i. a 

NR*,  M»I 
NC*  ••  | 

T  .n  «( NR.  NO *l.n 

4 1»  n  re  torn 

FNO 


1 1>  **e\r*  &$**%&*&$****/  J  \ 


V ,  -  -  ¥jt*  ■"  jv?-  ?  &&*■?  *  '  V 


TSHAT 


SUBROUTINE  SHAT  ( N I Y . NA ICPY , NS*  NRS • NCS.  S ) 
niHENSION  $(  ,  4*» ) 

COMHON/CWKBOxaflUHJ.XEtSj.YetM.ANC.M.Xl.X^.XS.XA.Y^Y^liEFA^bS 

»  'JI  l«!  "  *  '*  >  •  V*  1 C ( 1 " '  9  >  •  "X0X< 4(1  ) , NXBXCS. Nvwl MG. NYW1 NO 

»  NIY  *  NUMBER  OF  SPANUISE  MACH  BOXES 

*  NAlfPy  s  NUMBER  OF  SPANWtSF  AIC  CONTROL  POINTS 

*  NS  s  SURFACE  (1*WING  AND  ;>*TA!L) 

►  NRS  *  NUMBER  OF  ROWS  IN  S-NATRIX 

*  NCS  *  NUMBER  OF  COLUMNS  IN  S-HATRIX 
COMMON 

IF  (NAICPY  .OT.  .1)  GO  TO  H 

NRSsNlY 

NCSsNAICPY 

BO  /.  1*1  *  NRS 

no  h  J*i ,NCS 

*  S( I , J>*n.o 
GO  TO  inn 

I  NRSsNIY 
NCSs.T  *  ( NA  ICPY-?  ) 
no  u  1*1. NRS 
no  </  J*1  .NCS 

*  S  ( I .  J )  s  II  •  if 

IF  (NCS  .GT.  *y  1  GO  TO  *>00 

IF  (NCS  .EO.  M  GO  TO  <00 

GO  TO  ( ?ll|| » E  t if » .) 0 >J  )  » NCS 

TWO  A|C  POINTS 

00  /ft ii  1*1. NIY 

S(  1 .1  )*1  .If 

S( 1 .?)*YB0X< I  I 

CONTINUE 

RETURN 

THREF  AIC  POINTS 
no  >6(1  1*1, NIY 
S(  1 .1  )*1 .11 
S( l.?)*YBOX( I  ) 

$<  I  ,*(>  =  S<  1  ,?)•*? 

CONTINUE 

RETURN 

FOUR  AIC  POINTS 
GO  49.i  1*1  , NIY 
I  C  *  4 

S(  I  *  h**)- |  M  ’lT‘  "•‘,#<VA,CU'#S>4™*r<  *'NS)>>  IC«1 

S(  I .  IOM  )*YhOX(  I  ) 
s(  i .  i n*» ;•  >*S(  i .  ic«  i 
CONTINUE 

Ri  Turn 

•UT.  FOUR  AIC  POINTS 
no  ‘.I'll  1*1, NIY 
Nls-NAICPY-P 
1)0  '.;>•>  .1*1  ,NI 

C»NhJw,*"'’,J'NS,'','":'J"'MS”  00  To 

IC  =  \»NA I CPy-M 
GO  TO  f>/4 
IC*(  J-v  )•.(♦/» 

K  ( J  .1  T,  .» )  fc*  t  r 

SCI.  10  =  1  .0 

S(  I  .  IOM  ) * YHOX (  |  ) 


■7 


s<  |  .  IC*/>)sS<  I  .  1C*  l  )**/> 

CONTINUE 
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PART  VI 


SECTION  A 


TECHNICAL  DISCUSSION  OF  THE 
SUPERSONIC  BOX  METHDD 


Tie  linearized  flow  equation  is  in  the  form  of  a  hyperbolic 
differential  equation  when  the  flight  speed  exceeds  the  speed  of  sound. 
The  supersonic  version 
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where  P  =  M  -1,  has  solutions  only  within  characteristic  regions, 
called  Mach  cones.  Linearized  supersonic  flow  theory  has  led  to  closed- 
form  solutions  for  many  types  of  lifting  si*  'faces  in  steady  flow  (Reference 
11),  such  as  the  rectangular  wing,  delta  wing,  and  trapezoidal  wing.  These 
solutions  are  derived  easily  because  the  influence  of  a  small  perturbation 
is  confined  to  its  downstream  or  aft  Mach  cone.  Conversely,  the  only 
disturbances  that  can  influence  a  particular  point  are  confined  to  its 
upstream  or  fore  Mach  cone. 

The  most  elementary  disturbance  that  can  be  placed  in  the  flow  and 
that  is  a  solution  to  Equation(6.l)  is  the  pulsating  source.  The  source, 
placed  at  (£  ,'ij,  f  )  emanates  spherical  disturbances  and  has  a  velocity 
potential  induced  at  x,  y,  z,  given  by 
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represents  the  strength  of  the  source.  This  type  of  disturbance  has  no 
influence  outside  the  downstream  Mach  cone  and  is  discontinuous  at  the 
point  <  i ,  >?  ,  O .  To  provide  the  necessary  antisymmetry  of  disturbances 
with  the  symmetric  source  solution,  we  could  place  a  pair  of  sources  on 
either  side  of  the  z  «*  0  plane  and  require  the  lower  source  strength  to 
be  equal  in  magnitude  and  opposite  in  sense  if  we  could  isolate  the 
lower  from  the  upper  half  space.  Since  disturbances  are  confined  to 
Mach  cones,  this  isolation  is  possible  if  the  entire  region  of  disturbances 
in  the  z  =  0  plane  is  covered  with  two  source  sheets  placed  on  both  sides 
with  the  distance  between  them  infinitesimally  small. 

Applying  this  source- superposition  technique  to  the  wing  and  down¬ 
stream'*.  control  surface  problem  requires  constructing  for  the  configuration 
a  Mach  envelope  that  contains  all  possible  disturbances.  The  entire 
z  =  0  plane  within  that  boundary  is  covered  with  source  sheets  immediately 
above  and  below  the  plane.  A  typical  configuration  with  foremost  and 
aftmost  Mach  cone  intercepts  with  the  z  *  0  plane  is  shown  in  Figure  6.1. 


FIGURE  6.1  -  SUPERSONIC  BOX  OVERLAY  FOR  A  TYPICAL  CONFIGURATION  AT 
IOW  SUPERSONIC  MACH  NUMBER 
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The  strength  distribution  over  the  bottom  sheets  is  to  be  equal 
at  adjacent  points  but  opposite  in  sense, 

A  (  4  ,  n>  o+)  =  -A  (  i,  n,  o")  (6.3) 

and  determined  by  boundary  conditions  so  that  loading  acts  only  on  regions 
superposed  over  lifting  surfaces.  This  strength  distribution  has  been 
shown  (Reference  12)  to  be  equal  everywhere  to  the  local  downwash.  When 

±  a. 

this  conditon  is  used,  A(£,  q,  o)=w(£,r|,o),  the  velocity 
potential  at  (x,  y,  o+)  can  be  written  as 


w  (  4,  n  )  G  (x  ,  y  -n  )  d|  dr| 


(6.4) 


where  the  range  of  integration  extends  over  the  region  of  the  source  sheet 
contained  in  the  upstream  Mach  cone  from  the  point.  Substitution  of  the 
tangential  flow  condition  for  the  downwash  would  yield  a  solvable  integral 
equation  if  the  source  sheet  covered  only  a  lifting  surface.  Such  is  not 
the  case  when  the  Mach  number  normal  to  any  swept  edge  is  subsonic. 

The  downwash  distribution  between  any  subsonic  edge  and  the  Mach 
envelope  (diaphragm)  can  be  determined  (Reference  13)  by  simply  satisfying 
the  condition  that  the  pressure  is  continuous  between  any  two  adjacent 
field  points  that  are  not  on  opposite  sides  of  a  lifting  surface.  If  no 
disturbances  lie  upstream  along  the  line,  y  t  constant,  z  =  constant, 
then  the  velocity  potential  will  also  be  continuous  and  the  linearized 
presnure-velocity  potential  relation  yields  the  condition  that 

4. 

4>(x,  y,  o  )  -  4>  (x>  y>  °  )  *  o 

which  leads  to 


4>(x,  y,  o+)  -  <}>(x,  y,  o")  -  0 


(6.5) 
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when  the  antisymmetric  condition  that  the  upper  potential  equals  minus 
the  lower  potential  is  applied.  The  downwash  in  the  diaphragm  region 
can  then  be  evaluated  by  the  Integral  equation 


o 


w  (  S  »  ’l  )  G  (x  -  |  ,  y  -  n  )  d§  dn 


which  has  been  solved  for  special  cases  (Reference  13). 


(6.6) 


The  downwash  distribution  in  the  wake  region  can  also  be  determined 

by  satisfaction  of  the  continuous  pressure  condition.  In  this  case  the 

potential  has  a  non-zero  constant  value  at  (x,  y) .  Substitution  of  the 

wake  condition,  A  A  _  \  tc.  n\ 

^TE  ,lfP  -ik(x  ~*TE  (6'7) 

into  Equation  (6.4)  provides  the  relationship 
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which  requires  knowledge  of  the  upstream  downwash  distribution  within  the 
fore  M«ph  cone  to  solve  for  the  local  wake  downwash. 


Computation  of  the  downwash  (source  strength)  distribution  over 
the  entire  disturbance  region  and  subsequent  velocity  potential  distribution 
over  the  lifting  surfaces  for  any  supersonic  Mach  number  and  any  non¬ 
negative  reduced  frequency  for  configurations  of  interest  can  be  accomplished 
if  the  method  developed  in  Reference  14  and  extended  in  Reference  3  is 
lot  lowed.  We  cover  the  .region  of  disturbances  with  a  grid  of  rectangular 
boxes  of  tong  tit  A  und  width  A/p  adjusted  so  that  box  edges  lie  along  the 
y-axis  and  box  centers  lie  along  the  x-axis  and  wing  trailing  edge.  The 
box  width  is  determined  so  that  the  box  diagonals  are  parallel  with  Mach 
lines,  hence  the  name  Mach  box.  The  configuration  used  in  this  develop¬ 
ment  tn  shown  in  Figure  3  with  Mach  boxes  covering  the  wing,  wake,  tail, 
and  diaphragm  regions.  Boxes  are  in  each  of  these  regions  according  to 
the  location  of  their  respective  centers. 
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Consider  the  downwash  or  source  strength  distribution  to  be 
approximated  by  a  set  of  point  values  determined  by  satisfying  the 
appropriate  boundary  conditions  at  box  centers.  When  each  central 
value  is  considered  constant  over  its  associated  box,  the  velocity 
potential  at  any  box  center  can  be  computed  from 


V">=Z  Y 


(6.9) 


where  n  =  x/A  ,  m  =  Py/A  ,  v-  £/A  ,  |a*  Pq/A  are  box  center  coordinates. 
The  influence  coefficients  (IC)  sre  given  by 


4>  (n  -  v  ,  |  m  -  P-  )=  [fc  (n  -»/,  m  -  p  )  d£  dr] 


(6.10) 


where  the  unit  source  potential,  G,  is  integrated  over  that  portion  of  the 
box  area  at  (  v  ,  p)  that  is  within  the  fore  Mach  cone  from  the  box  center 
at  (n,  m) .  Methods  of  evaluation  of  the  IC  for  each  pair  of  relative 
box  locations  at  a  particular  Mach  number  and  reduced  frequency  are 
presented  in  Reference  3, 

Equation  (6.9')  is  applied  to  the  boxes  one  at  a  time  beginning  at 

the  center  box  in  the  first  row,  then  proceeding  outward.  After  completing 

the  first  row,  the  same  procedure  is  followed  in  the  second  row,  etc.  In 

follow in};  this  procedure,  it  is  found  that  there  exists  only  one  unknown 

in  each  box,  since  all  of  the  upstream  quantities  except  those  in  the  box 

being  computed  will  be  available.  This  advantage  is  obtained  because  of 

the  use  of  Mach  boxes  wherein  the  forward  integration  cone  from  the  box 

center  will  not  include  any  arena  from  the  same  row.  Then  in  evaluating 

Equation  (6.9)  it  follows  that  only  0„  „  and  W  are  unknown,  and  one 

n,m  n,m  ’ 

muy  then  write 


*1*11,1.1  ”w„,ni  ®<°*  °)  "  £  Y,  Vp  *(n  lm'M) 


(6.11) 


v>n  |i>  m 


where  <I>(o,  o)  as  is  indicated  in  Equation(6.1Q)  represents  the 
integral  of  G  over  the  forward  quarter  of  the  Mach  box.  This  relation¬ 
ship  has  ail  the  upstream  influence  represented  on  the  right  side  and 
the  total  minus  the  local  velocity  potential  on  the  left  side. 

Any  box  on  either  surface  has  its  downwash  given  by  the  tangential 
flow  condition  and  its  velocity  potential  given  by  Equation  (6.U). 

A  can  then  be  determined  from  this  equation. 

Y  n,m 

Boxes  entirely  in  the  diaphragm  region  have  zero  velocity  potential 
and  the  source  strength  is  then  determined  by 

”n,«  '  •  *  (o!  o)  £  ®(”  '*'*  I  ”  -1*1  > 

v>n  p>m 


which  is  Equation (6.11.)  with  <t>n  m  *  Any  box  that  is  intersected  by  a 
subsonic  edge  has  its  source  strength  modifed  by  a  linear  interpolation 
between  the  downwash  at  the  box  center  computed  as  if  it  were  first  a 
surface  box  and  then  a  diaphragm  box  (Reference  15) .  This  interpolation 
is  based  on  the  proportion  of  the  box  area  lying  in  the  two  regions.  The 
downwash  at  the  center  of  a  wake  box  is  computed  by  substituting  Equation 
(6.7)into  Equation (6.11)  to  obtain 
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(6.13) 


where  the  velocity  potential  at  the  wing  trailing  edge  ties  in  the  same 
box  column (m  *»  constant)  with  the  wake  box  of  interest. 
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Utilizing  the  above  equations  for  either  downwash  or  velocity 
potential,  we  can  build  up  the  point  value  distribution  of  velocity 
potential  for  both  surfaces  deforming  harmonically  at  the  same  frequency. 
The  values  at  the  wing  trailing  edge  are  at  box  centers,  and  the  values 
at  the  tail  leading  and  trailing  edge  may  be  computed  by  the  method 
described  in  the  previous  section. 
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PART  VI  -  SECTION  B 


SUPERSONIC  AIC  COMPUTER  PROGRAM  DESCRIPTION 

A  FORTRAN  IV  computer  program  is  presented  which  computes  supersonic 
unsteady  aerodynamic  influence  coefficients  for  a  variety  of  single  or  tandem 
lifting  surfaces.  The  solution  is  based  on  the  source  superposition  method 
and  a  Mach  box  approximation  is  employed  .to  reduce  the  integral  equations  to 
sums  of  constant  values  of  source  strengths  at  box  centers  times  integrals 
which  are  functions  of  relative  position,'  Mach  number  and  reduced  frequency. 

The  various  tandem  configurations  which  can  be  analyzed  are  shown  in 
Figure  6.2.  Also  it  is  possible  to  analyze  a  single  surface  (the  wing).  The 
aerodynamic  surfaces  are  assumed  co  have  a  plane  of  symmetry  parallel  to  the  free 
stream  flow.  The  upstream  surface  must  have  an  unswept  trailing  edge  and  the 
rectangular  trailing  surface  must  have  the  same  Bpanwise  dimension  as  the 
trailing  edge  of  the  wing. 

The  program  allows  up  to  40  AIC  control  points.  The  AIC  stations  must 
satisfy  the  following  requirements: 

(1)  The  chordwise  rows  must  be  parallel  to  the  flow  stream 

(2)  The  chordwise  rows  on  a  surface  must  have  the  same  number  of  control  points 

(3)  The  control  points  in  each  spanwise  row  must  have  the  same  fractional 
chordwise  location 

(4)  The  origin  for  the  AIC  station  coordinates  and  the  wing  and  control 
surface  coordinates  must  be  at  the  leading  edge  root  of  the  wing. 

Examples  of  acceptable  AIC  control  point  patterns  for  the  supersonic  program 
are  illustrated  in  Figure  6.3, 

The  supersonic  AIC  program  is  presently  limited  to  45  bpxes  on  the 
aerodynamic  surfaces.  This  limitation  does  not  include  the  diaphragm  boxes  in 
the  gap  and  outboard  region.  The  restriction  results  from  performing  all 
operations  on  the  computer  in  core  without  utilizing  peripheral  tape  and  disc 
units. 

The  user  specifies  the  number  of  boxes  along  the  wing  root  and  the  computer 
program  determines  the  size  of  the  boxes,  and  overlay  pattern  which  will  cover 
the  planform.  The  box  centers  of  the  first  chordwise  row  will  lie  along  the  root 
of  the  surfaces.  The  last  spanwise  row  of  boxes  on  the  wing  will  have  their 
centers  on  the  trailing  edge.  If  NBW  is  selected  by  the  user  as  the  number  of 
chordwise  boxes  on  the  wing  root  and  if  the  wing  root  dimension  is  2br,  then 
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the  box  size  will  be  A  x  A  where  A  =  2b  /(N8W-.5)  and  A  =  A  f-j  M2-l/ 

c  s  c  r  sc 

A,  is  the  chordwise  * idth  and  A  is  the  spanwise  box  width.  Knowing  the  size 

-*s 

of  the.  boxes  and  th'j  planfortn  geometry,  the  user  can  estimate  if  the  45  box 
restriction  sneisfied.  An  example  of  a  typical  overlay  is  shown  in  Figure 

6.4. 
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Figure  6.?  - 

Tandem  Coplanar  Configurations  at  Supersonic  Mach  Number 


The  supersonic  AIC  computer  program  consists  of  a  main  program  (DRIVE) 
and  20  subroutines  and  function  subprogram'.  Execution  begins  with  DRIVE 
calling  DAIN  which  reads  the  input  data.  Control  then  passes  to  a  Mach  number 
loop  where  a  check  is  made  to  insure  Mal.l.  Subroutine  CODE  is  called  to 
approximate  the  surface  and  diaphragm  regions  with  a  Mach  box  overlay.  The 
subroutine  POUT  is  called  and  the  input  flight  conditions,  geometry  and  map  of 
the  Mach  box  overlay  are  printed.  The  AIC  station  locations  are  also  printed 
if  the  option  is  exercised.  Following  POUT,  a  check  is  made  to  determine  if  the 
number  of  boxes  on  the  wing  arid  control  surface  does  not  exceed  45. 

fhe  subroutine  TRAMP  is  called  by  DRIVE  to  generate  the  substantial 
derivative  matrix  [w'J .  The  £wj  matrix  relates  the  Mach  boxes  on  the  surface 
to  the  AIC  control  points  and  serves  as  a  substantial  derivative  operator. 
Subroutines  called  by  TRAMP  are  CMAT,  SMAT,  TMAT,  BMAT,  RMAT  and  MINV. 

A  frequency  loop  is  entered  and  velocity  potential  influence  coefficients 
are  calculated  by  subroutine  CAFI.  The  coefficients  are  dependent  on  relative 
position  of  the  Mach  boxes,  Mach  number  and  reduced  frequency. 

The  velocity  potential  is  computed  next.  The  source  strength  of  the 
surface  boxes  is  determined  by  satisfying  the  tangential  flow  boundary  condition 
and  source  strength  of  the  diaphragm  boxes  is  computed  through  satisfaction  of  the 
boundary  condition  requiring  the  velocity  potential  at  the  box  center* 'be' zero*. . 
Diaphragm  boxes  in  the  wake  of  the  leading  surface  have  their  source  strength 
computed  through  satisfaction  of  the  condition  that  the  velocity  potential  be 
equal  to  the  value  computed  by  the  wake  condition.  Boxes  intersected  by  a 
leading  or  side  edge  have  their  source  strengths  adjusted  by  a  linear  inter¬ 
polation  formula  based  on  the  portion  of  the  box  area  actually  on  -the  surface. 

This  adjustment  is  performed  by  function  subp^gram  ARLE.  The  velocity 
potential  ut  the  box  centers  on  the  surfaces  is  computed  by  subroutine  PHIB  by 
summing  the  box  contribu^  ons. 

The  velocity  potentials  are  converted  to  pressure  through  a  substantial 
derivative  operator  generated  by  SD2.  Multiplying  pressure  by  the  box  ar^a 
yields  the  force  at  eueh  box  canter  on  the  surfaces.  These  forces  are  transferred 
to  the  AIC  stations  through  stutic  considerations,  thereby  forming  the  AIC  matrix. 
This  operation  Is  performed  by  subroutine  FORCE.  The  output  subroutine  POUT 
Is  called  to  print  the  AIC  matrix. 


1.0  PROCESSING  REQUIREMENTS 

The  input  and  output  files  used  by  the  program  are  05  and  06,  respectively. 
All  read  and  write  statements  are  contained  in  the  main  program  (DRIVE)  and 
subroutines  DAIN  and  POUT.  Peripheral  tape  and  disc  units  are  not  used  by  the 
program.  Approximately  40,000  cells  of  core  storage  is  required. 

A  standard  input  form  of  six  12-column  fields  per  card  is  used  by  the 
program.  Floating  point  numbers  (6L12.5  format)  may  be  anywhere  within  the 
appropriate  field,  but  fixed  point  numbers  (6112  format)  must  be  right  adjusted. 
Detailed  instructions  for  data  input  are  given  and  listings  of  data  cards  for 
sample  problems  are  provided. 


2.0  INPUT  INSTRUCTIONS 


Instructions  for  preparing  input  data  for  the  supersonic  AIC  computer 
program  are  presented  here.  The  field  location  and  format  for  each  quantity 
is  specified.  Any  set  of  units  may  be  used  for  geometric  dimensions  and  acoustic 
velocity  as  long  as  they  are  consistent,  e.g.,  if  inches  is  used  for  length,  then 
the  acoustic  velocity  must  have  dimensions  of  inches  per  second.  The  required 
data  and  the  sequence  in  which  the  information  is  entered  is  as  follows: 

1.  Strcamwise  Coordinates  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

g|S| 

H5H 

wmm 

BUBS 

Item 

m 

(3)  . 

■M 

mm 

(1)  X(l) 

(2)  X(2) 

(3)  X(3) 

(4)  X(4) 

(5)  X(5) 


Wing  root  leading  edge  coordinate 
Wing  tip  leading  edge  coordinate 
Wing  trailing  edge  coordinate 
Control  surface  leading  edge  coordinate 
Control  surface  trailing  edge  coordinate 


A  single  surface,  the  wing,  may  be  analyzed  by  setting  X(4)  and  X(5) 
equal  to  X(3).  The  various  configurations  are  generated  as  shown  in 
Table  6.1.  The  origin  for  the  planform  and  AIC  station  coordinates 
must  be  at  the  leading  edge  root  of  the  wing,  therefore  X(l)  and  Y(l) 
described  below,  must  always  be  zero. 


2.  Spanwlse  Coordinates  and  Acoustic  Velocity  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

BB 

BH 

11IISB 

SOUND 

Item 

fggH 

— 

— 

(1) 

Y(D 

(2) 

Y(2) 

(3) 

Y(3) 

(4) 

SOUND 

Wing  root  spanwise  coordinate 

Wing  leading  edge  spanwise  coordinate 

Wing  (and  control  surface)  tip  spanwise  coordinate 

Speed  of  sound  ut  altitude  for  which  analysis  is  performed 


I 


TABLE  6.1 


OPTIONAL  CONFIGURATIONS 


CONFIGURATION 

CB3RDWISE 
.  COORDINATE 

SPANWISE 

COORDINATE 

RECTANGULAR 

X(l)  -  0.0 

X(2)  -  0.0  , 

X(3)  >  o.o  t 
tfk)  *  X(3) 

X(5)  5  X(4) 

Y(l)  =  0.0 

Y(2)  *  0.0 

Y(3)  >  0.0 

DELTA 

X(l)  «  0.0 

X(2 )  >  0.0 

X(3)  -  X(2) 

X(4)  S  X(3) 

X(5)  X(4) 

Y(l)  -  0.0 

Y(2)  »  0.0 

Y(3)  >  0.0 

TRAPEZOIDAL 

X(l)  -  0.0 

X(2)  >  0.0 

X(3)  -  X(2) 

X(4)  &  X(3) 

X(5)  *  X(4) 

Y(l)  »  0.0 

Y(2)  >  0.0 

Y(3)  >  Y(2) 

TRAPEZOIDAL  (CROPPED) 

'  1 

X(l)  t,  o.o 

X(2)  >  X(l) 

X(3)  >  X(2) 
x(4)  s  x( 3) 

X('5)  a  x(4) 

Y(l)  »  0.0 

Y(2)  >  0.0 

Y(3)  >  Y(2) 

DELTA  (CROPPED) 

X(l)  -  0.0 
x(2)  >  0.0 
x( 3)  >  x(a) 
x(4)  ?!  x(3) 

X(5)  *  X(4) 

Y(l)  -  0.0 

Y(2)  »  0.0 

Y(3)  >  Y(2) 

I 
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3.  General  Information  (6112  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

NMACH 

KF 

NFREQ 

NBW 

LFUNCH 

Item 

(1) 

(2) 

(3) 

(‘0 

(5) 

(1)  NMACH  Nuroberof  Mach  numbers  (maximum  5) 

(2)  KF  Option  to  input  frequencies  or  reduced  frequencies: 

KF  »  0  frequencies 
KF  «  1  reduced  frequency 

(3)  NFREQ  Number  of  frequencies  or  reduced  frequencies  at 

each  Mach  nui^er  (maximum  10) 

(4)  NBW  Number  of  chordwise  boxes  on  wing 

(5)  LFUNCH  Option  to  punch  AICa  on  cards: 

LPUNCH  *  0  no  punch  output 
LPUNCH  *  1  punch  AICs  for  wing  oaly 
LFUNCH  *  2  punch  AICs  for  control  surface  only 
LPUNCH  »  3  punch  individual  AIC  matrix  for 
wing  and  control  surface 
LFUNCH  *  4  punch  total  AIC  matrix  for  wing- 
control  surface  combination 

The  AIC  matrices  are  punched  by  rows  with  a  IP6FI12.5  format.  Each  row 
of  an  AIC  matrix  begins  on  a  new  card. 


4. 


Mach  Numbers  (6E12.5  format) 


Column 

Name 

Item 


(.1 )  FMACH  (l)  Mach  number 

(•')  FMACH  (2)  Mach  number 


(NMACH)  FMACH  (NMACH)  Mach  number 

Enter  NMACH  value  of  Mach  number  (nee  Part  3,  Item  1).  Mach  numbers  must 
be  greater  than  1.1. 


5.  Frequencies  (or  Reduced  Frequencies  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

FRBQ(l) 

FR0Q(2) 

FREQ(3) 

FREQ(4) 

FRBQ(5) 

frbq{6) 

Item 

(1) 

(2) 

(3) 

(4) 

(5) 

(6) 

Input  NFREQ  values  of  frequency  or  reduced  frequency  (see  Part  3>  Items 

2  and  3).  Reduced  frequency  is  defined  as  k  c  — — -J-  where  b  is 

r  u  r 

the  semi-chord  of  the  wing  root,  U  is  the  free  stream  velocity  and 
is  the  oscillatory  angular  frequency  in  radians/sec. 

(1)  FREQ  (1)  frequency  (cps)  or  ky 

(2)  FREQ  (2)  frequency  (cps)  or  ky 


(NFREQ)  FREQ  (NFREQ)  frequency  (cps)  or  kr 

If  NFREQ >6,  continue  input  of  FREQ  (7)  to  FREQ  (NFREQ)  on  new  card. 


6. 


Number cf  AIC  Stations  (6ll2  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

FOOTING 

NWING 

F3XCS 

NYCS 

Item 

(1) 

(2) 

(3) 

(4) 

(1) 

NXWING 

(2) 

NYWING 

(3) 

NXCS 

(4) 

NYCS 

Number  of  chordwise  AIC  collocation  stations 
on  wing 

Number  of  spanwise  AIC  collocation  stations 
on  wing 

Number  of  chordwise  AIC  collocation  stations 
on  control  surface.  Set  equal  to  zero  if 
analysis  is  for  wing  only 
Number  of  spanwise  AIC  collocation  stations 
on  control  surface.  Set  equal  to  zero  if 
analysis  is  for  wing  only. 
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7.  Spanwise  Location  of  AIC  Stations  on  wing  (6E12.5  format) 
Column!  1-12  13-24  25-36  I  37-48  I 


1-12 

13-24 

25-36 

37-48 

49-60 

61-72  i 

YAIC(1,W) 

YAIC(2,W) 

YAIC(3,W) 

YAIC(4,W) 

YAIC(5,W) 

YAIC(6,W/| 

(1) 

(2) 

(3) 

(4) 

(5) 

J 

(1)  YA1C  (1,W) 

(2)  YAIC  (2,W) 


Spanwise  coordinate  of  first  row  of  AIC 
collocation  stations  on  wing 
Spanwise  coordinate  of  second  row  of  AIC 
collocation  stations  on  wing 


(NYWING)  YAIC  (NYWING,  W) 


Spanwise  coordinate  of  last  row  of  AIC 
collocation  station*  on  wing 


AIC  station  rows  are  numbered  from  root  to  tip  of  surface.  If 
NYWING  >6,  continue  input  on  new  card(a), 

8.  Spanwise  Location  of  AIC  SfcJtions  on  Control  Surface  (6E12.5  format) 


column  rn^i'2  1 13-24  25-36  37-48  49-60  j 

Name  YAIC(l,CS)  YAIC(2,CS)  JYAIC(3,CS)  YAIC(4,CS)  YAIC(5,CS)  YACl(6,CS)j 
Item  (1)  |  (2)  j  73)  1  (4)'  ‘ZTIIll  T  ~(6)  [ 

(1)  YAIC  (l,CS)  Spanwise  coordinate  for  first  row  of  AIC 

collocation  stations  on  control  surface  j 

(2)  YAIC  (2,CS)  Spanwise  coordinate  of  second  row  of  AIC 

collocation  stations  on  control  surface  f 


(1)  YAIC  (l,CS) 

(2)  YAIC  (2,CS) 


(NYCS)  YAIC  (NYCS,  CS) 


Spanwise  coordinate  of  last  row  of  AIC 
collocation  stations  on  control  surface 


Omit  this  input  if  only  the  wing  is  analysed.  For  NYCS  >  6,  continue 
input  on  new  card(s).  AIC  station  rows  are  numbered  from  root  to  tip 
of  nurface. 
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9.  Chordwise  Location  of  AIC  Stations  on  Wing  (6E12.5  format) 


Column 

1-12 

13-24 

25-36 

37-48 

49-60 

61-72 

Name 

XAIC(Wi,3) 

♦  •  • 

•  •  a 

•  •  a 

Item 

(1) 

(2) 

(3) 

(4) 

(5) 

(6) 

(l)  XAIC  (W,l,l)  Streamwise  coordinate  of  first  AIC  collocation 

station  in  first  row  on  wing 

(?)  XAIC  (W,l,2)  Streamwise  coordinate  of  second  AIC  collocation 

fetation  in  first  row  on  wing 


(NXWING)  XAIC(W,  NYWING,  NXWING)Streamwise  coordinate  of  last  AIC  collocation 

station  in  last  row  on  wing 

Streamwise  numbering  sequence  is  from  leading  edge  to  trailing  edge  (see 
Figure  b.jj  ).  Continue  input  of  values  for  each  row  immediately  after 
the  last  value  of  the  preceeding  row;  do  not  begin  input  of  each  row  on 
new  card. 

10.  Chordwise  Location  of  AIC  Stations  on  Control  Surface  (6E12.5  format) 


Column 

1-12 

25-36 

37-48 

49-60 

61-72 

Name 

IAIC(CS,l,l) 

XAIC(CS,1,2) 

XAIC(CS,1»3) 

•  •  • 

•  •  • 

•  •  • 

Item 

(2) 

(3) 

(4) 

(5) 

(6) 

Procedure  to  input  streamwise  coordinate  location  of  AIC  stations  on 
control  surface  is  the  same  as  wing  above.  Omit  this  input  if  only 
wing  is  analyzed. 


3.0  SAMPLE  PROBLEMS 

Three  sample  problems  are  presented  to  demonstrate  the  use  of  the 
supersonic  AIC  computer  program.  Configurations  analyzed  include  a 
trapezoidal  wing-rectangular  control  surface  combination,  a  cropped  trape¬ 
zoidal  wing  and  a  delta  wing.  Description  of  input  parameters  and  complete 
listing  of  input  data  cards  and  computer  output  are  given  with  each  sample 
problem. 


Sample  Problem  1. 

Supersonic  AICs  are  computed  for  a  trapezoidal  wing  and  rectangular 
control  surface.  The  plafoform  geometry  and  AIC  stations  are  shown  in 
Figure  6.5.  The  dimensional  unit  used  for  length  is  feet,  therefore  the 
acoustic  velocity  is  entered  as  ft/sec.  The  analysis  is  for  M  *  1.5, 

=  0.10  and  a  =1116.87  ft/sec  (sea  level).  Four  chordwise  boxes  are 
used  for  the  wing.  The  resulting  box  overlay  has  15  boxes  on  the  wing  and 
8  on  the  control  surface,  thereby  satisfying  the  45  box  limitation.  Also, 
there  are  13  diaphragm  boxes  in  the  gap  and  outboard  region.  Input  para¬ 
meters  are  summarized  below  and  a  listing  of  the  input  data  cards  and 
computer  output  folio wa 

X(3)  *  2.0'  X(4) 

Y(3)  »  2.0' 

Acoustic  velocity  (sea  level) 

Number  of  Mach  numbers 
Input  reduced  frequency 
Number  of  reduced  freauencies 


X(l)  *  0.0'  X(2) 

Y(l)  «  0.0'  Y(2) 

SOUND  =  1116.87  ft/sec 
NMACH  =  1 
KP  =  1 
NFRBQ  =  1 
HBW  =  4 
LPUNCH  »  4 


1.0* 

1.0« 


3.0'  X(5)  =  k.o- 


FMAC1I  (.1.)  - 
FREQ  (1)  - 
NXWING  -  4 
NYWING  »  4 
NXC8  *»  2 

mrcs  »  3 


1.5 

0.10 


Numberof  chordwise  boxes  on  wing 

f 

Punch  combined  wing-control  surface  AIC 
matrix  on  cards 
Mach  number 
Reduced  frequency 

Number  of  chordwise  AIC  stations  on  wing 
Number  of  sponwise  AIC  stations  on  wing 
Number  of  chordwise  AIC  stations  on 
control  surface 

Number  of  spanwise  AIC  stations  on 
control  surface 


& 


YAIC(l,W)  »  0.2' 

YAIC(2,W)  -  0.7’ 

yj:i ■  ,w)  c  1.3' 

YAIC(4,W)  =  1.8' 

YAIC(1,CS)  =  .3' 

YAIC(2,CS)  =  1.0* 

YAIC(3,CS)  =  1.7' 

XAIC(l,l,W)  =  0.10' 
XAIC(l,4,W)  =  1.90* 

XAIC(l,2,W)  a  0.70' 

xAic(i,:>y-  » i.?o* 

XAIC(2,1,W)  -  0.10' 

XAIC(2,2,W)  -  0.70' 

XAIC(2,3,W)  »  1.30' 

XAIC(2,4,W)  a  1.90' 

’’ 

XAIC(3,l,W)  *=  0.38' 
XAIC(3,4,W)  =  1.915' 

XAIC(3,2,W)  «=  0.90' 

XAIC(3,3,W)  -  1.405* 

xaic(4,i,w)  =  o.86' 
xaic(4,4,w)  =  1.94' 

XAIC(4,2,W)  -  1.22' 

xaic(4,3,w)  »  1.58' 

XAIC(1,1,CS)  =t  3.25' 

XAIC(l,2,CS)  =  3.75' 

XAIC(2,1,CS)  =  3.25' 

XAIC(2,2,CS)  *  3.75* 

XAIC(3,1,CS)  =  3.25' 

XAIC( 3,2,01)  »  3.75* 

YAIC(1,W)  =  0.2* 

YAIC(4,W)  =  1.8* 

YAIC(2,W)  -  0.7’ 

yj'.r , w)  »  i.3» 

YAIC(1,CS)  =  .3' 

YAIC(2,CS)  =  1.0' 

YAIC(3,CS)  a  1.7* 

XAIC(1,1,W)  =  0.10' 
XAIC(l,4,W)  =  1.90* 

XAIC(1,2,W)  a  0.70' 

XAIC(1,S</-  a  1.30' 

XAIC(2,lfW)  *  0.10' 

XAIC(2,2,W)  -  0.70' 

XAIC(2,3,W)  a  1.30' 

XAIC(2,4,W)  a  1.90' 

■■ 

XAIC(3,1,W)  =  0.38' 
XAIC(3,4,W)  =  1.915' 

XAIC(3»2,W)  n  0.90' 

XAIC(3,3,W)  »  1.405' 

XAIC(4,1,W)  =  0.86' 
xaic(4,4,w)  »  1.94' 

XAIC(4,2,W)  -  1.22' 

XAIC(4,3,w)  »  1.58' 

XAIC(1,1,CS)  a  3.25' 

XAIC(1,2,CS)  =  3.75' 

XAIC(2,1,CS)  =  3.25' 

XAIC(2,2,CS)  *  3.75’ 

XAIC(3,1,CS)  =  3.25' 

XAIC(3,2,Ci)  «  3.75* 

DATA  CARD  COLUMN  NUMBER 


jc  =  * 
A  o  * 

A  CO  * 
N  N  * 
N.  «  * 
a.  ia  * 
a  v  * 

A.  l'',  V 

--CM  * 
!->(-* 
A  3  * 

<  o  * 

C  tJ  $ 
c  -X  * 
•O' O  * 
•O  A  * 
■c  v  * 
c  -3  * 
O  CM  * 
<C  «~  * 
<3  0* 
If  C  * 
Pi  O  * 
a  p-  * 
AO* 

a  a  * 

A  V  * 

A  1*1  * 
IA  CM  * 
IT  <-  * 
AO* 

v  o  * 

V  30  * 

v  r-  * 

VC* 

V  -A  * 
v  v  * 
v  r:  * 

M  * 

V  c  * 
VO* 
f  O  * 
•*3  'JO  * 
'T.  f-  * 
-3  C  * 
x*  *A  * 
"0  V  * 
PO  PO  * 
-0  A’  * 

r-  • 
•O  O  * 
AO* 
a  oe  * 
a  r-.  * 
AC* 
A  IT  * 
■M  V  * 

A  PO  » 

A  A  * 

A  c  ft 
AO* 

-  O  * 

—  30  a 
f<  A  * 
-CO* 
fi  IA  * 
•H  V  • 
t~  l*">  « 
<-*  A'  * 
n  «  « 

O  u 
O  * 

03  * 

A  * 

C  * 

IT  • 

V  M 
P’3  * 

A  • 

«-  • 


U  J  (3  (S  CD  J 

at  ~  at  x  ar  *-> 

M  <  M  *  M  < 

at  ►-  as  »  *  »- 

>■  >-  X  X  X  X 


»  IA  O 

O  IA 

A  0>  -- 

•  •  i 

3H  "*3 


=  A  .  O 

o  e  ia 

*H  V  A 

♦  •  • 

O  r-t  ‘  -f) 


t  n 


rv 

cc 

• 

c 

s  -I 

•  i— 

to  rl 
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<r  c  c  <c  if 

®  O  O  0  -- 
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"ample  Problem  2. 


A  cropped  trapezoidal  wing  is  analysed  at  M  a  2.0,  k  -  0.10  and 
a  *  1116.87  ft/sac  (sea  level).  The  trailing  surface  is  removed  from  the 
analysis  by  setting  X(5)  -  X(4)  *  X(3).  The  wing  geometry  and  AIC  stations 
are  shown  in  Figure  6.7.  Five  chordvise  boxes  were  specified.  The 
resulting  overlay  has  32  boxes  On  the  wing  and  2  diaphragm  boxes.  Input 
information  is  summarized  below  and  a  listing  of  the  input  data  cards  and 
computer  output  follows. 


X(l)  -  0.0' 
Y(l)  =  0.0' 


X(2)  «  1.0* 
Y(2)  «  1.0* 


X(3)  -  2.0* 
Y(3)  -  2.0* 


X(k)  m  2.0* 


X(5)  -  2.0' 


SOUND  »  1116.85  ft/sec 

NMACH  «  1 

KF  »  1 

NFREQ  «  1 

NBW  =  5 

L PUNCH  «  0 

FMACH  (1)  »  2.0 

FREQ  (1)  «  0.10 

NXWING  *  3 

mum  »  5 

NXCS  «  0 

NYC  IS  *  0 


Acoustic  velocity  (sea  level) 

Humber  of  Mach  numbers 
Input  reduced  frequency 
Humber  of  reduced  frequencies 
Humber  of  chordwise  boxes  on  wing 
Do  not  punch  AIC  matrix  on  cards 
Mach  number 
Reduced  frequency 

Number  of  chordwise  AIC  stations  on  wing 
Humber  of  spanwise  AIC  stations  on  wing 
Humber  of  chordwise  Alp  stations  on 
control  surface 

Humber  of  spenwiso  AIC  stations  on 
control  surface 


YAI0(i,W)  - 

0.20* 

YAJC(»l,W)  •• 

l.»IO* 

XAJC(l,|,W) 

*  0.7/5' 

xaic(;>,i,w) 

«  0.725* 

XAIC(  i.I.W) 

*  0.875' 

XAtC (h  .1,W) 

-  l.025' 

XAJC('»,1  ,W) 

-  1.175' 

YAIC(2fW)  a  O.fO* 
YAIC(%W)  »  1.80' 

XAIC(.l,2,W)  -  1.050* 
XAIC(2,?,W)  «  1.150* 
XAIC(3,2,V)  -  1.250* 
XAIC(b.2,W)  -  1.350* 
XAIC(5,2,W)  -  1.1|50* 


YAIC(3,W)  «  1.00* 


XAIC(1,3,W)  -  1.525* 
XAIC(?,3,W)  «  1.575* 
XAIC(3,3,W)  -  1.625* 
XAIC(4,3,W)  -  1.675’ 
XAIC(5,3,W)  *  1.725* 


zy/.'^osz'^c/n /_  <?>  5?2yO$/  — / 
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HUGHES  AIRCRAFT  CO,  SUPERSONIC  AIC  PROGRAM  (CONT-D> 
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Sample  Problem  3. 

A  45°  delta  ving  is  analysed  at  M  »  2.0,  5.5  cps  and  a  *  1116.87 

ft/sec  (sea  level).  The  trailing  surface  is  removed  from  the  analysis  by 
setting  X(5)  **  X(4)  «  X(3).  The  ving  geometry  and  AIC  station  locations 
are  shown  in  Figure  6.9.  Six  boxes  were  specified  along  wing  root.  The 
Mach  box  overlay  has  34  boxes.  Input  parameters  are  summarised  below  and 
h  listing  of  the  Input  data  cards  and  computer  output  follows. 


X(L)  •  0.0' 
Y(l)  -  0.0’ 


X(2)  -  2.0' 
Y(2)  *  0.0' 


X(3)  -  2.0* 

y(  3)  -  2.o‘ 


X(4)  -  2.0'  X(5)  -  2.0’ 


SOUND  =  1116.87  ft/sec 

NMACH  «  1 

KF  *  0 

NFREQ  =  1 

NEW  «  6 

LPUNCH  *  1 

FWACH  (1)  «  2.0 

FRBft  (1)  *  5.5 

NXWING  «  3 

NYWING  ■  4 

NXCS  »  0 


Acoustic  velocity  (sea  level) 

Number  of  Mach  numbers 

Input  frequency 

Number  of  frequencies 

Number  of  chordwise  boxes  on  ving 

Punch  AIC  matrix  for  wing  on  cards 

Mach  number 

Frequency  (cps) 

Number  of  chordwise  AIC  stations  on  wing 
Number  of  spanwise  AIC  stations  on  ving 
Number  of  chordwise  AIC  stations  on 
control  surface 

Number  of  spanwise  AIC  stations  on 
control  surface 


,2' 

,4’ 

YAIC(2,W)  -  0.6' 

YAIC(3,W)  -  1.0* 

0.560' 

XAIC(1,2,W)  -  1.100' 

XAIC(1,3.W)  •  1.640' 

0.880' 

XAIC(2,2,W)  -  1.300' 

XAIC(2,3,W)  -  1.720' 

1.200' 

XAIC(3,2,W)  -  1.500' 

XAIC(3»3»W)  -  1.800' 

1.520' 

XAIC(4,2.W)  «  1.700' 

xaic(4,3.w)  -  1.880' 

Z.o 


FIGURE  6.10  -  LISTIEG  OF  IEPUT  MSA  CARDS  FOR 
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PART  VI  -  SECTION  BU.O 
LISTING  OF  SUPERSONIC  AIC 


COMPUTER  PROGRAM 


C0RIVE  f>R  t  VF 

COMPLEX  C/ERO. VPIC.SS. PHIW*  SPHI  ,PH1  »PMl  IF.  npHI  .fcXF.W.f.Alt.Z 
n|M1  NSION  E  <  4  5  •  4  5 )  *  W  <  *  4  5 )  .  S(  .  4‘ >  .R(  4  5  »  4  5 >  » 

1  TEMPT  4*»  •  4*» )  .  R (  45 »  4*» )  •  C (  4*» #  4b  )  *  T ( 45  •  46  )  #  f  H(  •  4** ) » 

V  TJ(46.4»>.TR<45.46> 

COMHON/Cl/KHOXamm  ).XF(5).  YF(  M  .  XI  .  Xi  .  X  I .  X4  .  Y1  .  Y* .  BE  I  A  ,  MBS 

COMMON/C?/ AS. NMACH.FHACH<6 > .NFREQ. FRFQM n >. NMODfc, NSURf .LPUNCK.Kf 
COMHON/C-VVPICTPn^ ) .  SS<?0**5>  .  PHI  W<1>0  ) .  SPHI , CZERO. PH  1 , PH  I  Tc»  DPMI 
C0MM0N/C4/H0fl<‘  <|),NBL<*0  >.KC<  •>«.).  Kl<?8>.  RSI  ru>.DXE<  '  >  •  1 P I  *  U 
C0MM0N/C5/X .  Y »  OX . OY»  EM. EK . EKR»  EUR*  NP»  MP»  MB. NBOX.  KOBE • NODE. NBW. NBT 
C0HH0N/C6/XI. .  NS.K.  J,  IFP.TWL.RHO 

COHMON/C7/XA  tCf  in  .  1  «• ,  ■> )  ,  YA  IC<  1  »• » 9  )  .  MXBX(  4ll  )  ,NYBX<40  )  NXHXCS 

COMMON'CP/NXWING.NYWING.NXCS.NYCS 

C0HM0N/CV/AICM5.  45),  ARO) 

EQUIVALENCE  <C  .S.  R> , (VPIC.W.R) • (SS.F .  TH).  (Air.  TEMP) 

1  CAM  DA.  IN 

IF  ( NMOnF  .LF.  45)  GO  TO  5 
WRITE  (#.»«) 

A  FORMAT  (IH1.5X.50H  NUHRER  OF  AIC  STATIONS  FXCEEDS  Hay  ALLOWABLE  (4 
1 5  )  /»  X  *  1 ftH  CASE  TERMINATED) 

00  TO  1 
5  CONTINUE 

no  i non  mach=i.nmach 

FM=f NACH(MACH) 

IF  (EM  .LT.  i . i)  GO  TO  ldOO 
CAU  CODE 
TOB=TWL/RETA 
CALI  POUT ( 1 ) 

CAU  POUT  ( ?  ) 

NTRS=n 

00  /  1=1. NBS 

7  NTPS=NTRS*NXRX< I ) »NXHXCS 
IF  ( NTRS  .LF. .  45)  GO  TO  14 
WRITF  (6.14) 

14  F0PMATOH1.5X,4DH  NUMBER  OF  MACH  HOXES  fcXCFEDS  MAX  A»  LOWABLE  05) 
1/5X.16H  CASE  TERMINATED ) 

GO  TO  1 
1.1  CONTINIIF 
IJ  =  AS*EM 
TPIHTPI/U 

RFN-DX*(EM/HE| A )**? 

CAM  TRAMP  (v.NTRS.NTCS.S.R.C.B.T.TR.Tl.TM) 
no  '.5*1  1  =  1  .NTRS 

no  '.6 n  , ntcs 

V>0  TE  Ml*  (  I  .  .1 )  =  T  R  (  I  .  J) 

CAM  TRAMP  ( i .NTRS.NTCS.S.R.C.R.T.TR.TI.TM) 
no  'MI  1  =  1. NTRS 
no  'Ml  .1  =  1  ,  NTCS 
5Mi  TRM  .  J)  =  TENP(|  .  J) 

NMOM  =NTCS 

no  'HO  !  F  H* 1 . NFRFQ 

It  ( K (  .EO.  ’)  FREQ( IFP)»FREO( I F R  )  tFMACH < MACH > • AS/ ( T P I • X 1 »H.5) 

FK  ~  I  Rt  Q(  If  RMTPU 
EKH- I K*RFH 
FKR-FK»X1 /?." 

CAM  CAFI 
ARO  f  K  •  flX 

FXI  CMPI  X  ( COS  (  ARO  ) .  -  S  I  N(  ARO  )  ) 
no  '.Mi*  MOI»r='  .NMODE 
X"H.6#nx 

NH  =  I  422 


no  ''flu  NP*t  •  NHOX 
KD*KBOX(NB> 

NS=i 

no  no  ( / (i » 6 1. .  /u«4sii»ftflf7o*  / o > •  k n 

6fl  NS*'' 

/fl  MR=M0B<NP> 

Yrfl.fl 

00  1  n  «t  HP  =  1  #  HH 
KOOf  =KBOX(NH> 

RPHjsCZERO 

IF  (NP  .OT.  ’ )  CALL  PM! B 

SPH I =  SPHI •DY 

PHlrCZFRO 

00  TO  (4ll»4u.4fl#4u»4fl,?0.  .5  ft  )  >  KOBE 
''ft  SPH|=SPHl-?HtW(MP> 

PHI=PHIM(MP) 

PHIW<NP)=PHIW(MP)*FXF 
no  to  4n 

in  IF  (Kl)  .IT.  M  00  TO  4ft 
‘jfl  SS(NR)  =  -SPHI /VPIO/OY 
no  TO  90 

40  IF  (NS  .FQ.  9}  00  TO  44 
tR  =  f 


no  Pi  K  =  1  .MP 

Pi  I  R=  1  P *■  NXB X (  |l  )  , 

I  R- J R»NP_NXhX( 1  ) 

00  TO  ?h 
44  l  R=  ti 

no  P?  II =1 ,N«S 
P?  !R  = IR*NXRX( II  ) 
no  P-"T  I L  —  I  *  MP 
P.T  I  Rr  |  R«  NXBXCS 
I R  = I R-NROX*  NP 
>h  SR=FM*AS»TR(!R  MODE) 

S I  =  T  P I  *FREG(  IFR)»T!< I R, MODE) 

SS(NR)=CMPLX(SR.SI > 

IF  ( K  0  .IT.  4)  SS(HB)sSS(NB)-ARlF(T,)B)»(SS(NR)4SPHI/VP*C/0Y) 

IF  (KODF  .OF.  4)  (JO  TO  90 

PHI=.SPHI*SS(NH)»VPIC«I)Y 

IF  (KOOF  .FO.  <>  PHI M<  MP ) =PH I »FXF 

IF  (NP  .FO.  NHOX* I )  PHIN<MP)=PHI 

If  (NP  .FO.  NHOX)  PHITF»PHl*(PH!-PHIH<MP))«I)XE(t>) 

00  10  (  iPH.  i  Pi  .tPHOPI  .  l?l  .1 ''/.!?/>»  KOBE 
Ipa  10*  (i 

no  i  ?p  m  =t  .mp 

1  *9  10= |C«NXBX< II  ) 

10“ |0*NP-NXHX( 1  ) 
no  in  i ?f» 

I'l  10*1 


no  >p.i  II  =1  «  NHS 
1  P.T  10-  |C*NXBX(  II  ) 

no  ipi  1 1 * i » mp 

1P4  I0*|0. NXBXCS 
10= |C-NHOX*NP 
IP*  A 1 0 ( 1 0  *  MODE ) *PH I 
IP/  OONllNIlf 

VC  CONTI NUf- 
NM*NR*1 
Kn*FOnF 
inn  Y--Y*ny 

Pud  x=x*nx 
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5(10  CONTINUE 

C  At (  SDX  (S.R»C#B.T.TR. TM) 

00  / 0 1  1=1, NTRS 
no  / o 1  JS1.NTRS 

IF  (I  . F0»  J)  S|xTPI«FREO<IFR)/<FH*AS> 

SRxTMt I . J) 

701  U( I . J)=CHPLXC SR*S1 ) 

no  /nv  i  =  i  , ntrs 
no  jsl.NTCS 
F  ( I .  J  )  s  c  n .  o . « .  n ) 
no  /II*'  K  =  1 «  NTRS 

7(1?  F(!,J)sF(l*J)-W(l*K)*AIC(K#J) 

ZCON2<4.0»DX«DY»FM»AS)/<  < IP  I *FRE0(IFR )>*•?•< Yfc( 3 >-Yt( 1 ) )* 
1  (  XF  (  3  )  -  XF  ( 1  ))••?.) 

C At  l  FORCE  (R) 
no  /»H  1 2  t  #  NTCS 
no  /n«  j=i,ntcs 
AIC( I . J)2<0.n.ft.n ) 

no  /os  km.ntrs 

7  =  CMPLX(C( I .K )*ZCON»n.n  ) 

7  lift  AJC<  I  .  J)  =  A|CM  .  J)-Z«F(K,  J) 

CALI  POUT ( 3  ) 

IF  (LPUNCH  .RT.  0)  CALL  P0UT<4> 

On o  CONTINUE 
10»f»  CONTINUF 
00  TO  1 
FND 
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CPAIN  PAIN 

SUBROUTINE  PAIN 

COMPLEX  CZERO.VPlC.SS.PHlH.SPH!,PHI,PHnE»nPHI 
COMHON/UWKBOX(ifl»ifl).XE(5).YF(<)fXi  » X2  .  X3,  X4  .  Y1  ,  Y2 , bPT  A ,  NBS 
COMMON/CP/AS . NMACH»FMACH(ft)»NFREQ*FRFO( 10). NMODE. NSURF • L PUNCH » Kf 
C0MM0N/C3/VPIC(2n>»>>,SS<?(i’5).PH?H(!>li  ).SPHI,CZFRO,PHT  .PHIIE#OPHI 
COMMON'C4/MOB(*0),NBt.(*D>.KC(*«'  >,KL.<?B>»BSL(Pn  >,DXE<  >  > . TP1 ,U 
COMMON/CB/X.  Y.PX.IIY,EM,EK,EKB,EKR,NP,HP,  Nti, NBOX. KODE  ,  MODE, NBW. NBT 
COMMON'CA/Xl .NS,K,J,IFR, TWL, RHO 

nOMMON'n7/XAii:(  10, 111,21, YAlCO'*. ‘»>.NXBX(4U>. MY4X( 40)  .NXttXCS 
COMMON/CB/NXWING. NYWINB.NXCS. NYCS 
RF  AIKS.  11  )  (  XF(  I  ).  I  el  ,»•) 

REAMS,  1 1  )  (  YF  C  1  ) .  U1  .  M.  AS 
REAMS.  1?  >  NMACH.Xr.Nf  PEO.NBM.l  PUNPH 
Rf  AM*.  II  )  <  FMACH<  I),  |  *  |  .  NMACH ) 

RFAMS.I1)  (FRFUF  t  ) ,  I  si  , NFREQ) 

NSIIRr=? 

rr(XF(4).LT.XE(*>)  GO  TO  to 

nsurf = i 

XEM  >  =  XF(.1 ) 

XE(‘>)  =  XFU) 

in  RF  Aft  <*>,1P)  NXWING.NYW1NG, NXCS. NYCS 
REAP  (S.U)  f  r  A  I  r  <  1,1  ).  Ist.NYHINR) 

IF  ( NXCS  . Nf .  n }  READ  I*. It)  ( YA |C( 1,2), 1=1 , NYCS ) 

REAP  (  (  X  A  I  C  (  ]  »  J  •  1  >  ,  1  si  ,  NXW 1 NU ) ,  J  =  1  .NYWINO) 

IF  (NXCS  •  NF  .  M  RFAD  (5.U)  (C  X  A  I CU  ,  J.  ?),  |  s  1  ,  NXCS  >.  J=  1  .  NYCS ) 
RHOr 1 .0 

NMOliFs NXW  I  NG» NYWINO^  NXCS* NYCS 
II  FORMAT(AFl?.»  ) 

I?  FORMATIMl?) 

RF  TURN 
FNP 
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CCODF 


CODF 

subroutine  i:oof 

COMPLEX  CZFRO. VPIG. SS. PHI M*  SPHI #  PHI » PHI TC»  PPM | 

COMPLEX  A  I C 

COMMON/Cl/KHOX(inufl).XF(‘>).  YE(  ')*X1»X?*X.4«X4.Y1»Y2»BFTA*NBS 

COMMON/C?/ AS. NMACH.FHACH! 6 )* NFREO. FBFQ< ). 1). NMODE* NSU»F . I  PUNCH. KF 

COMMON /C3/ VPtC(?l>.‘,>  ) .  SSI?«Pt> ) .  PHI  H(!>A  )  t  SPHI ,  CZERO.  PH 1  ,  PH  I  IF*  DPMI 
COMMON/'C4/MOR(*0>,N8L(*;0>»KC(!>f‘  i.KKPHI.fiSL'^iD.DXEI  ’  >.TP1 ,U 
COMMON/C>/X,Y,nX.QY,EM.EK.EKR,fXR,Ne  OP.  NB .  N'OX ,  KODE  MODF » MBW » MBT 
C0MM0N/C6/XL.NS,K, J. 1FR.TUL.RH0 

COMMOn/C7/XA!C(  in  ,11* .  ■*  ) .  YAICC  M*  .?> .  K XBX (  « 0  > , MYBX(  4(1  >  .  NXBXCS 
COMMON/ CB/ NX W 1 NG.NYW1NG.NXCS.NYCS 
C0MM0N/C9/AIC(^*>.  *M.  ARCU 
BETA  =  SORT ( ( FM  •  FM>-1 .0  ) 

XI  r  XF<3>  -  XF ( 1 ) 

X!'  r  XF ( 3 )  -  XF(?) 

X.)  ~  XF ( 4  )  -  XF(  1  ) 

X4  r  XF(H)  -  XF ( 4 ) 

Xt>  :  XF(*> )  -  XF  <  1  ) 

Y I  *  Y F(V  )  -  YF  < 1  ) 

YP  r  YF<3)  -  YF ( 1  I 

!F(XP.GT.X1.0R.X1.01.X3.0R.XT.01.X^.O».XP.l  T.u.O)  30  10‘>U 
f  F  <  Y1  .GT.YP.OR.  Y1  .LT.il.O)  00  TO  ‘'ll 

r«i.  s  n.n 

IKYP.NE.Y1)  TUI.  =  (XI  -  X2  >  /  ( Y°  -  Yl> 

AKO)  <Y?*(X?*X1)  -  Y1  •  (XS'-XII) 

ARC')  s  YP*X4«o.n 
APCO  =  AR(  I  )  *  ARC  ) 

If)  nx  -  XI /(FLOAT(NflM)  -•».*»> 

IF  ft  «•  f)X  .GT.  X*>)  GO  TO 

I  *»  NBW  -  NBW*’1 
00  10  in 
OY  -  DX/BETi 
YN1  =  Y 1  /  f)  Y 
YN?  =  vy/|)Y 

xni  =  ynp  -  f  x i  -  ;k  )  /  nx 

XNT  YNP  ♦  X./flx 

XNI  I-  •  X 3  /  D X 

XWTF-X'CDX 

NfiOX  =  XN  TF  Ml. Min  «■».»: 

Nfj?  =  YP/llY  •  i.ii 
NilT  =  X‘!/|JX  • 
n xf < i  >  -  i.n 
D  X  F  (  P  )  -  l.l 
nxH'i  -  ii.  •> 

IIXF  (  4  )  =  A  1  N  *  (  XNl  E  *  t.‘>)  -  XNI  E 
OXFl‘  )  =  XNIF-n  OAT (NROX-1  ) 
nxF(A)  =  Id' 
nxF<  />  =  !»..■ 

X  r  i.  *  OX 

PH  ?  -i 

NilC  MINI  (  AHA  X  l  <  XNL  •  T  LOA  T (  NBOX  ) -ll .  >  .  YN1  ♦  f  LUA  T  (  NflOX  > - n  •* ) .  XNT-FLOAT 
I  (  NROX  )•«.*»)  *1 

DO  Ml  IjM  ,  nhi: 

Mil  NXBX  (  I  I  )  *H 
NXRX(*fi-H 

no  All  NP  =  I  .  NMOX 
XN  =  M  OAI(NP)  -  i.V 
YU  *  YN/ 

IF  I  T  Wl  .OT.  ii. it)  YH=AM|Nl< YM.YNJ  ♦ XN/ ( TNL/RETA >  ) 

IF  (X.GT.XEC  > )  00  TO  P4  U7(t 


MB  =  MINK.' UXi  (YM*XN«YN1  )*XNT-XN)«1 
00  TO  P8 

/ 4  MB  =  MINI  UMAX1  < XNL« XN. XN* YN1  ).XNT>XN)+t 
>8  MOR(NP)  =  M'j 
KODF  =  1 

IF  (NP  .FO.  NOW)  KODF  =  3 
IF  (NSURF  .FO.i  )  00  TO  PR 
IF  (X  .GT.  XI  )  KOBE  *'> 

IF ( NP.FQ. NBN TKOOFs* 

IF  (X  .GT.  X<  >  KOBE  «4 
IF  (X  .GT.  X<«nX>  KODE=P 
IF  (NP  .FO.  NHOX)  KODF  *•> 
so  T F ( NB * MH •  0 T - ^ n »* ii  >  GO  TO  t* 

MBI  (NP)  =  NH 
DO  '0  MP  =  1 .MR 
YN  t  MP-1 
NB  s  NR  ♦  1 

IF  (YN  .GT.  YW>  KODE  s7 

IF  (KODF  .FO.  *  .OR.  KODE  .60.  6)  GO  TO  70 
00  TO  71 

/(I  NXRX(MP)=NXFX(MP)»1 
n  CONTINUE 

IF  (MP  . N6 .  i )  GO  TO  IS 

IF  (KODF  .EO.  •>  .OR.  KODE  .60.  4  .OR.  K006  .FO.  5)  Gn  TO  /? 
00  TO  IS 

I?  NXRXCS*NXBXCG* 1 
n  CONTI NUF 

Y  =  DY«FLOAT(MP)-H.*»»DY 

IF  (KODF  .FO.  i  .OR.  KODE  .60.  3)  NYBXC NP ) sMP 
in  KBOX  (NH  )  =  KODE 
'll!  X  =  X»DX 
RETURN 

•>n  C Al  I  EXIT 
RETURN 
FND 


CPOUT 


POUT 

SUBROUTINE  POUT (I NO) 

COMPLEX  CZERO,VPIC»SS,PHlM»SPHl»PHl»PHlTfc,  DPHI' 

COMPLEX  M,  A  1C 

DIMENSION  S  W  ( .  6  ) ,  SURF  <?.3)»C0D<7).C<50) 

COMHON/Cl/KBOX<lOilO).XE<5).YE<3).X1,X2.X3»X4,  Y1,Y2,BETA,NBS 
C0MM0N/C2/AS .  NMACH.  FMACH ( 6 )  ,  Nf REQ,  FREO(  1 0  ) .  NHOD6,  NSURF  -  LPUNCW, KF 
C0MM0N/C3/ VP  I  C(2()?5)*SS<?0?5)»PHIM(5fl)»  SPH1  ,CZERO,PHI,PH|TE*iiPHI 
C0MM0N/C4/M0R(  *>0  )»NBLe>0)*KC(!»fi),KL(?8),BSL(?0)*DXE(7)»TPI»U 
COMMON/CS/X, Y,nX,0Y,EH.EK.EKB,EKR,NP,MP,N8,NBQX»K0DE.M0DE,NBM,NBT 
C0MM0N/C6/XL.NS,K» J, IFR.TML.RHO 

COMMON/C7/XA I C  ( 1 0 « 1  0 » 2  ) » YA IC ( 1 0 ,  ? ) ,  NXBX ( 4(1 ) .  N YBX ( 40  ) ,  NXBXCS 
COMMON 'Cft/NXUl NO, NYU! NO* NXCS.NYCS 
C0MM0N/C9/A1C(45,45),AR<3) 

DATA  (SM(1,  1),  1=1  .M/26HHAP  OF  MACH  BOX  OVERLAY  ON, 

1  2AHMING,  TAIL.  AND  DIAPHRAGM  . 


2 

2AH 

(S)  -  MING 

3 

PAH 

(S)  -  TAIL 

4 

2AH 

(.)  -  MAKE 

5 

2AH 

(.)  -  diaphragm 

DATA  (SURF ( 1 . I ). 1  =  1 , 3)/8HMlNQ  , RHTAIL  . 1 1 HM 1 NG  ♦  TAIL  / 

DATA  COD/1HS.1HS. I  MS. IMS, IMS . 1H, .IN./ 

00  TO  (III, ?ll. .40,40),  |ND 

10  GRUFF*,!  l)EM.AS.RH0,XE(l),XE<4).X1*X4,  Y1  ,  Y2,  Y? ,  V2,  X?,  X4  ,  AR<  1  ), 

1  AR( ? ) , NRW, NOT . MBS. MBS 

11  FORMA  T  < 1  HI // ///  3?X, 43HHU0HES  AIRCRAFT  CO.  SUPERSONlr  A)C  PROGRAM 

1  ///37X,30HFL!OHT  CONDITIONS  AND  GEOMETRY/) H0//15X,  43HMACH  NUMBER 

2  s,F8.5.4X.16HSPEED  OF  SOUND  *Flft.3,4H  t/T , 4X , 4HRH0* . FA .?  //1H0/ 
X54X.4HMING.lflX. 

3  4HTAIL///22X.16HL.E.  STATION  <L ) , ?F?2 . 3//22X , 1 6HR00T  CHORD  (L), 

4  2F22.3//  22X.10HL.E.  SPAN  ( L  ) . ?F?2 . 3//?2X . 1 6HT . fc .  SPAN  (L), 

5  2F22.3 //  22X.16HTIP  CHORD  (L ) . ?F?2. 3//22X, 1 6HT01 AL  AREA  <L*L), 

6  2F22.3//  ??X. ■)  6HCH0RDMISE  BOXFS  ,  119, I??//??X, 

716HSPANMISE  BOXES  ,119, 12?) 


WRITE!*. t?)NROX.nx.0Y 

l?  F0RMAT(1H«/,11X,?3HT0TAL  CHORDMISE  BOXES  s »  1 3 ,  bX.llwBOX  CHORD  *. 
1  1PlEl?,5,?H  |.  *5 X .  1  OHBOX  SPAN  s ,  lPJ Fi ? . ,  ?H  L/  ) 

WRI TF (ft  » 91  ) 

VI  FORMAT ( 1  HI // // /  PHX.51HHU0H6S  AIRCRAFT  CO.  SUPFRSONIr  A|C  PROGRAM 
KCONT-D)  ////) 

NB  =  1 

no  17  NP  M. NR OX 
MB  =  HOB  <  NP ) 

IFTMH.GT .*>1) )  00  TO  BUD 

00  13  MP  s  1  .MB 
K  =  KHOX(NB) 

0 ( MP )  *  COD< K ) 

13  NB  =  NB  ♦  1 

1 F  ( NP. GT  » ft )  00  TO  1*> 

MKf1E(A,14HSM(I»NP), 1*1,5), <C<MP).MP*1 , MB) 

14  F0RMAm«X.5A/s.5flA1  ) 

0(1  TO  17 

1  •*  MR  I  IF  (A.  16)  ( C ( HP ) ,  MP*1 ,  MB  ) 

1 6  FORMA  r(4nX.50A1 > 

17  CONTINUE 
00  TO  innii 

ion  MPT  IF  (6. Bin  ) 

"11  FORMA  f ( 9X» 52BWHEN  M08  EXCEEDS  Ml  THE  MAP  PRINTING  IS  DISCONTINUED 
J//1H8.4HM  CALCULATIONS  PROCEED  IN  NORMAL  MANNER  ) 

00  10  111 «U  428 

?n  nys*nyming 


I 

I 


T 


MXS=NXWING 

no  7110  ns=i,2 

WRITE  (6.201)  (  SIJRF  (  I, NS).  1*1.7) 

7(11  F0RMAT(1H1.2«X.S1HHUGHFS  AIRCRAFT  CO.  SUPERSONIC  Alt’  PROGRAH  (CONT 
1-D)  /////78X.41HAIC  COLLOCATION  STATION  COORDINATES  ON  THE  2A6/1H0 
2  » 1  9X  *  4HYA1C.  UX.I.lHXAIC  VALUES—) 

00  202  I  Y*1  .  NTS 
YCsYAJC( IY.NS) 

7li7  WRHF  (6.20.1)  YC.  (XAIC(  IX.  IY.NS).  I  X*1  ,  NXS ) 

NYSsNYCS 

NXS=NXCS 

IF  (NYS  .EO.  n  .OR.  NXS  .EG.  0)  GO  TO  20* 

7(»n  CONTINUE 
’.<•>  RETURN 

2.1  FORMAT  (1H0,i2X.5E17.6/(lH  .  79X .  4E“*  7 . 6  ) ) 
jn  VEI sEM* AS 

OsO  . 5«RH0«  VEI 
RV=J .O/EKR 
BR=Xl /? . 0 

WRITE  (6.220)  FRFQ( IFR),BR.EKR.RV.FN. VEL.RHO.O 

220  FORMA  T  ( 1  HI .  .11  X .  51  HHUGHES  AIRCRAFT  CO.  SUPERSONIC  Alt’  PROGRAM  (CONT 
1-D)////9X,?HM  OSCILLATORY  FREOUENCY  (CPS ) . 4X. 1PE12.5./1H0.9X. 15HRE 
2FFRFNCF  CHORD. 1X.1PF17.5./1M0.9X. JOHREDUCED  FREOUENCv  (REF.  CHORD) 
.I.4X.1PF12.5./1H0.9X,  29HRE0UCED  VELOCITY  (REF.  CHORD) . 4X» 1PE12.5. 
4/1H0.9X.2  1HF RFF  STRfAH  HACH  NUMBER .  4  X » 1 PE 1 7  *  5 » / 1M0 » 9  X » 2  MHF REE  SIRE 
5AM  VFLOCITY.4X.IPE12.5,/1H0.9X.7HOFNSITY>4X,OPF*».2./1H«.9X,J3HDYNA 
6MIC  PRESSURE  ( 1  /?»RH0»VFL»«2 ). 4 X ,  1PE1  2 .•>„//// ) 

WRITE  (6.221  ) 

221  F ORMAT (///35X.14HAER00YNAMIC  INFLUENCE  COEFF IC IENTS. //5X. 2HRL. 1  OX. 
17H1H.  10X.2HRI  .10X.2HIM.lflX.2HRL.1ilX.2HlN.inX.2HRL.10y.2HlM.L0X.2HR 
?L. 1 0X.2HIM./ ) 

NROWS=NYWINR#NXWING*NYCS*NXCS 
DO  222  NROW=i .NROWS 
WRITE  (6.223) NROW 

WRITE  (4.224)  (A  )  C ( NRQW, NCOL ) . NCOL*l , NROWS ) 

72.1  FORMAT  (/  5HR0W  *  I?) 

224  FORMAT  (lPlt»F17.4> 

722  CONT I NUF 

RETURN 

40  NW=NXWING*NYWING 
NC=NXCS»NYCS 
NT=NW*NC 
NW1 =NW* 1 

00  10  (Hi .87. H. 1*04). L PUNCH 
HI  CONTINUE 

no  3fl I  | 3 1 . NW 

PUNCH  H5,  ( A  I C ( I . J ) . Jsl . NW ) 

1(11  CONT  I  NUF 
HH  FORMAT  (1P6F17.5) 

RETURN 
H?  CONTINUE 

00  .102  I  *NW  1  .  NT 

PUNCH  «•>.  ( A  I  r:  (  I  ,  J),  JsNWl.NT) 

.1(17  CONT  I  NUF 
RETURN 
HI  CONTINUE 

no  in.t  i  * i  #  nw 

PUNCH  05,  (AfC(I.J). J*1 . NW ) 

1»1  CONT I NUF 

DO  .104  I  *NW1  .NT 

429 


PUNCHES.  ( A ! C ( I »  J )  * JsNWI »  NT ) 
3»4  CONI  I NUE 
RETURN 
M  CONTINUE 

no  .*«•>  1st, NT 

PUNCH  «•>.  (  A  IC(  I  *  J  )  >  Jal  #NT  ) 
305  CONTINUE 
I0»n  RETURN 
END 


CFORCE  FORCE 

SUBROUTINE  FORCE  (R) 

OIHfNSION  R(45,45) 

COMMON/C1/KHOXMOOO ), XE<5># YE (3). X1,X2#X3, X4,  Yl# Y2/BETA.NBS 

C0MM0N/C5/X,  Y,PX,  i)Y.EH,EK,EKB,EKR,NP,PP#N8»NBOX,KODE,MOUf:»NBW,N&T 
COHHON/C7/XA  lO(lG#10»2),YAJC<10»2)#NXfiX(40),NYBX<40)»NX6XCS 
C0MM0N/C8/NXWING,NYWlNG,NXCS,NYCS 

mr=nBS 

NMBXW=0 
no  50  I =1 >  HU 
*>n  nmrxw=nhbxw+nxrx<  i  ) 

k,ROU  =  NXWING»NYMINO*NXCS«NYCS 
KCOl  =0 

no  ioo  1=1, hr 

ion  *COI =«COL*NXOXf I )  »NXBXCS 
00  150  1*1, FROM 
00  150  J=  1 ,  fc COl 
150  “(  I , J  >  =  0 . 0 

on  fcf/o  1*1,  MR 
NCK  =  0 
FKB  =  1  .0 

frt=i.o 

F  OF  =  1.0 

YR  =  nY#FLOAT( I  )-0Y 

! 1 =NYW I NG-1 

no  610  111*1,11 

IF  (0.5*(YAIcmi,l)*YAlC(IlI*l,t))-YMl)  .OT.  YR-.b»DY>  GO  TO  630 
610  CONTI NUF 

I  I  I  =  N  Y  W  I  N  (i 
00  TO  620 

630  CONTI NUF 

IF  <YM-0.5*I)Y  .LT.  0 . 5«  (  Y  A  I C  <  I  I  I  ,  1 )  ♦  YA  l  C  (  I  I  I  ♦  1 , 1 )  >  -  YE  ( 1  )  .AND. 

1  YRt0.5»UY  .OT.  1) .  5*  (  Y  A  I C  <  I  I  I  ,  1  )  ♦  YA  I C  (  I  ll*l»l))-YE(l  >  >  NCK*1 
IF  (NCK  .EQ.  il  )  00  TO  620 

FRR*(0.5*(YAIC< 1 1  1*1  ) ♦ VA I C ( II l *1 , 1 > >-YE ( 1 >- YR*C ,5*DY )/DY 
FPTsl.O-FRB 

620  NROR=NXW I  NO* (  III-l) 

'TCOL  =  0 

1)0  6511  I  1  I  l*t  ,  1 
650  NCOl  =NCOL  +  NXRX  (  MID 
NCOL  =  NCO).-NXRX  (  I  ) 

KKsNXHX ( I  ) 

DO  75n  K*1 , KK 
110  /00  Jsl.UXMlNO 

IF  (XAICI 1,  I  I  I ,  l  )-XKl )  .GE.  (FLOAT(NXBX(l)-NXBX(  I  )*K)-.5)*0X) 

TOO  10  710 

IF  (XAlClNXWING, I  I  1 , 1  )  - XE ( 1 )  . LE .  ( FLOAT { NXBX ( 1 )-NXBX U ) +K  ) - . 5 )  * 
1HX)  00  TO  720 

II  (XAIC<J, lll.l)-XE(l)  .GT.  (FL0AT(HXBXC1>-NXBXU >*K>-.5>*0X> 

100  TO  730  * 

/IIO  CONI  I  NUE 
/in  NHF=NR0W*1 
N0f=NC0i*K 
W ( NRF , NCF  )  =  l  WU 

If  (I  .HI.  1)  R  <  NNF ,NCF)*K(NRF ,NCF)#0.5 

[If  (  K  .10.  MO  H(NRf  ,  NCF  >*R(  NRF,  NCF  >•«  .5 

If  fj  .fO.  HR)  FOE  =  (Yt(3)-YE(l)-(FLllAI(MB)-l*5)*DY)/DV 
If  <1  .  EQ.  MR)  K(NRf ,NCF > *R < NRF , NCF >*F OE 
00  10  /40 

1/20  NRF  =NROW* NXN  I  Mf, 

NCF  =  NCOL4K 


R(  NRF  ,  NCf  >  =  f  RH 

IF  U  .60.  1)  R(NRF,NCF)sR(NRF»NCf  )*0 . 5 

IF  (K  .60.  KK)  R(NRf  , NCF  )  =R ( NRF . NCF > • U . 5 

IF  (I  .60.  HR)  F 06  =  ( Y6 ( 3 ) - Y6 ( 1 ) - ( f LO A T ( MB ) -1 . 5 ) *0 V ) / 0 T 

IF  (I  .60.  HR)  H(NRf ,NCf )=R(NRF,NCF)*f 06 

00  TO  740 

730  R1*XMC<  1 1  1.1  >-XF(l )-( FLOAT < NXflX (1 ) -NXBX (  l  HK)-Q.5)*DX 
R3sXAIC(J. I  I  I .1 >-XAlC(J-l.  1 1  I  *  1 > 

NRF  =  NR0W4  J 
NCF=NCOl*K 

R( NRF . NCf  )=( 1 .0-R1/K3 )*FRB 

R(NRF-l»NCF>=(Rl/R3)«FRB 

If  <1  .60.  1)  R ( NRF , NCF ) *0 • 5«R ( NRF » NCf  ) 

IT  <1  .60.  1)  R(NRF-l,NCF)  =  (l.5«R(NRF-l»NCF) 

IF  (K  .60.  KK)  R(NRF  . NCF  )  =R < NRF , NCF  )  • U  .  5 
IF  (K  .60.  KK)  R( NRF-i » NCF )  =  R ( NRF-1 » NCF  )»0 .5 
IF  (l  .60.  HR)  F06  =  <Y6<3)-V6d)-<FL0AT(HB)-1.5)«DY)/nY 
IF  (I  .60.  HR  >  R(NRF»NCF)=R(NRF  » NCF  )*f  06 
IF  (I  .60.  HR)  R(NRF-1.NCF>*R<NRF-1,NCF>*F06 
740  CONTI NU6 

IF  ( NCK  .60.  I  .AND.  K  .60.  KK)  GO  TO  760 
00  TO  750 

760  00  850  KT=1 , KK 

1)0  800  JT=1»NXWING 

IF  (XAICd, I  I  I ♦ 1 , 1 > - XE ( 1 >  . G6 .  (FL0AT(NXRX(1)-NXBX( I ) ♦ K I  )-.5>«DX) 
100  TO  810 

IF  ( XAICINXWINO. I  I  1*1.1 )  *  XE (1 )  .16.  ( f LO A  I  < NXBX ( 1 >-NXBX ( I  )  *K T  ) - . 5 > 
1-liX)  GO  TO  H?0 

IF  <XAIC(JT, I  I  I ♦ 1 » 1 )-X6(l )  .01.  (FLOAT (NXBX(1  )-NXBX(  I  > ♦ K T  )-.5)*UX) 
100  TO  830 
800  C0NTINU6 
810  NRF=NR0W*NXW|NG*1 
NCF*NCOL*KT 
«<NRF,NCF)sFRT*F06 

IF  (KT  .60.  KK)  R(NRF,NCF)aR(NRF.NCF )*0.5 
GO  TO  840 

820  NRF=NR0W*2«NXMING 
NCr=NCOL*KT 
RINRF.NCF )=l RT*F06 

IF  (KT  .60.  KK)  R(NRF,NCF )sR(NRF.NCF  )*0.5 
GO  TO  840 

830  RIsXAICI  JT.  I  I  Id,  1  )-X6(l  )-(f  L0AT(NXBX(1  )-NXHX(  I  )*KT)-0.5)*DX 
R3sXA  |C<  J  I ,  I  I  Id.  1  )  -  X  A  I C  <  JT-1.  I  I  Id,  l  ) 

NRF=NROW*NXWlHG»JI 
:-:CF  =NCOI  *KT 

R( NRF. NCF )*< \ ,0-RI/R3)#f Rf«*FOf 

R  <  NNf -1 .NCF )  =  (R1/K3)*FRT*F06 

If  (I  .60.  I)  R(NKF,NCF)  =  (J.5*H(NRF,NCf  > 

IF  (I  .10.  1)  R(NRF-1,NCF)*0.5»R(NRF-1 .NCF ) 

If  (KT  .60.  KK)  R(NRF.NCF)*U.5«R(NRF,NCF ) 

If  (KT  .Hi.  KK)  R(NKF-l  ,  NCF  )  *  0 . 5  *R  (  NRf -1  CF  ) 

840  CONIINIIF 
850  CONI  I  Nllfr 
750  CONI  I  NIJF 
600  CONT I N06 

00  400  1=1, HR 
KKsNXflXCS 
NCK  =  0 
f  MR* 1  ,0 
f  MT=1  .0 
F  OF  *  1.0 


432 


YR*DY»FLOAT< I )-DY 
I  I  =  N YCS-1 
DO  410  I  I  1*1 .  I  ! 

IF  <n.S*(YAln(  m,2>«YAIC(!l!+l»2>)-VHl>  .OT.  YR-.b*DV>  60  TO  430 
410  CONTINUE: 

I  I  I =  N  YCS 
00  TO  420 

4 .JO  continue 

IF  (YR-0.‘>«|JY  .LT.  0.5*(YAIC(  1 1  1 , 2 ) ♦ YA  1 C  <  1  1 1+1.2)  )*VE< 1 >  .AND. 

1  YH*0.b*|)Y  .OT.  0.5*<YA!C< III,2)+YAlC< 111+1,2>>-VE<1 >>  NCK«1 

IF  (NCK  .BO.  0)  GO  TO  420 

FRRs(0.5*(YA!C(  1 1  l.?>+YAIC(I!l+1.2>>-YE(t>-YR+0,5*DY>/BY 
FRT=1.0-FR8 

420  '4R0H2NXMIN6*NYHING  +  NXCS»<  III-l) 

*COl =NMBXW+( 1-1 ) *  NXB  xcs 
■TO  950  KS1 .  NXHXCS 
on  goo  Jsl » NXCS 

IF  <  X  a  I C  ( 1  < 1  I  I  *  2  )  -  XB  ( 1  )  .GE.  (FL0AT(NB0X-NX8XCS*K)-.5)»UX) 

ICO  TO  910 

IF  CXAIC(NXCS. I  I  1.2)- XE < 1 >  .LB.  ( FLOAT < NBOX-NXBXCS+K )-.b )*DX ) 

100  TO  920 

IF  (  XA  I C  (  J,  1  I  I,2)-XEU>  .OT.  <FL0AT(NB0X-NXBXCS*K>-.5>*bX> 

ICO  TO  930 
900  CONTINUE: 

910  NRF=NROH*l 

ncf=ncol*k 

R ( NRF . NCf  )s| RU 

IF  (I  .BO.  1)  R(NRF,NCF)*R(NRF,NCF  )«0*5 

IF  (K  .BO.  1)  R<NRF,NCF)«R(NRF,NCF >•< <FL0AT<N80X-NXBXC$*1 ) >»DX 
1  - XF ( 4  )  ♦ XE ( J  )  )/nx 

IF  <K  .BO.  X K )  R(NRf  .NCF>sR<NRF,NCF)»(XE(b)-XE<l)-<FLOAT(NBOX-l))* 

i  ti  x  >  /  n  x 

IF  <!  .BO.  HR)  F0E=(Y6(3)-Yfc(l>-(F10AT(MB)-1.5)#DY)/DY 
IF  (I  .BO.  HR)  R(NRf  »NCF)*R(NRF.NCF)*FOE 
00  10  940 
920  NRF=NRON+NXCC 
NCF=NCOL»K 
R ( NRF . NCF  )  s| RH 

IF  (I  .BO.  1)  R(NRF,NCF)*R(NRF,NCF)«0.5 

IF  ( K  .BO.  1)  R<NRF,NCF)*R(NRF,NCF>«UFL0AT<NB0X-NXBXC$  +  1>>*DX- 
1  XF  (  4 ) ♦ XB ( 1 ) ) / OX 

IT  <K  .BO.  r- K  )  HINRE  ,NCF)*R(NRF.NCF)*(XB(b)-XB(l)-(ELOAI  (NBOX-1H* 

t  ox)/nx 

If  (I  .BO.  MR)  Fm=(Yt(3)-YB(l)-(FI0AT(M9)-l.b)»DY)/DY 
If  <1  .BO. MU)  R<NHF,NCF)«R<NRF,NCF)»FOE 
00  10  940 

930  RIsXAlCfJ. I  I l.?)-XF(l)-(FL0AT(NB0X-NXBXCS+K>-.5)*DX 
R3  =  XA|C( J, I  I  I ,?>-XAlC( J-l, I  I  1,2) 

NRf  =  NROW+.l 

Ncr=Ncm  +  k 

RINRF.NCf  )s(1  .0-H1/R3MFRH 
R(NMf-1 #NCF)s<MI/R3)»FRB 

I)  (I  .BO.  1)  R(NHF-l,NCF)*0.b»R(NRF-l.NCF) 

If  (I  .BO.  1)  R ( NHf , NCF ) *0 , 5#H ( NRF . NCI  ) 

If  <  K  .10.  1)  R<NHF,NCF)*R<NRF,NCF  >•(  FLOAT(NBOX-NXbXCS+K  )*UX 
1-XB  I  4  )  ♦  Xf-  <  1  >  )  /  n  X 

If  (X  .BO.  1)  R(NRF-1,NCF)«R(NRF-1.NCE  )•(  FL0AT(N80X-NXbXC$+K)*DX 
) - XB  <  4  )  ♦  XB ( 1  )  >/0X 

If  (K  .BO.  XK)  HI  NR) , NCF >*R ( NRF , NCF >* (  XE<5)-XB<1)-  FLOAT ( NBOX-1  )# 
1 II  x  >  / 1»  X  433 


IF  <K  .EQ.  KK )  R(NRf-l,NCF)*R(NRF-l.NCF>*<XEm*XE<l>- 
1FLOAT(N0OX-1 )«DX>/DX 

IF  (I  .EO.  HR)  F0Es(YE(3)-Y£(1)-(FL0AT(HB)“1.5)kDY)/DY 
IF  (1  .90.  HR)  R(NRF . NCF )*R(NRF#NCF >*f  OE 
IF  (I  .EO.  HR)  R(NRF"1»NCF)*R(NRF-1*NCF)*F0E 
941)  CONTINUE 

IF  <  rit;K  .EO.  1  .AND.  K  .EQ.  KK)  00  TO  969 
00  T0950 

960  <10  350  KTal.XK 
no  300  JT*1 *  NXCS 

IF  ( XA IC( t •  I  I  l  +  l.?)~XE:(l)  .OE.  ( FLOAT!  NBOX-NXRXCS*KT  )-.*> )  «DX  ) 
inn  TO  310 

If  (XAICINXCS.  I  I  1*1  #?)-XE(l)  .  Lh.  ( f  LI)  A  I  ( NBOX-NXBXCS*KT  )- .5  )«0X  ) 
100  10  320 

IF  (XAICUT.  I  I  I*1#?)*XFC1)  .OT.  ( FLOAT  ( N80X-NXBXCS*K T  )  - .  b  >  *DX  ) 

100  10  330 
300  OONUNIJE 
311)  NRF sNRQM*NXCSM 
NCFsNCOL+KT 
R(  NRF ,  NCF  .•  sf  R T*FOfc 

IF  (KT  •  £(.'•  KK)  R(NRF,NCF)«R<NRF.NCF)»(XE(5)-XEI1 >-  FLOAT ( NBOX-1 > * 
inx)/Dx 

IF  (KT  .EO.  1)  R( NRF  » NCF  >*R( NRF »NCF  >*(  FLOAT ( NB0X-NXBXCS*1 >*DX 
l-XE(4)*XE(l))/nx 
00  TO340 

320  NRF  =NR0M*2»NXCS 
NCF  =NCOL*KT 
R ( NRF  * NCF )af  R  T*FOF 

IF  (KT  .EO,  KK)  R(NRF,NCF)«R(NRF.NCF >* I XE (5 >-XE ( 1 >-  FL0AT(NB0X-1 )* 
10X1/DX 

IF  (KT  .to.  1)  R(NRf  » NCF  )«R(NHF*NCF  )»(  FLO  A  T  ( N80X-NXRXCb»l  >*I)X 
1-XF(4)*XE(1))/RX 
00  10  340 

.131)  «l  =  XAIC(Jf,  I  I  l+1.2)-XE(l)-(FL0AT(NB0X*>NXBXCS«KT)*DX-.5*l)X) 

N3  =  XA  I C  (  J I »  I  I  I  ♦1,2)-XAIC( JT-1. II !»1.2) 

NRFsNROH*NXCS*jr 

NCFsNCOL*KT 

R(NHF,NCF)s(1 .0-R1/R3)*FRT*FOE 

«(NRF-l.NCF)s(Rl/R3)#FRT»F0fc 

IF  (I  .EO.  1)  R( NRF » NCF )«Q NRF » NCf  > 

IF  (I  .10.  1)  RINRF-l #  NCF )*0.5*R(NRF«1 » NCF ) 

IF  (KT  .  EO.  1)  R(NRf  # NCF ) «R< NRF. NCF  ) *  ( FLOA I ( NBOX-NXRXCS* 1  )*DX- 
1  XM  4  )  ♦  Xt  ( 1 )  )  /OX 

IF  (K!  .FO.  1)  R(NRf-l#NCF)*R(NRF~l*N(. F)»(FL0AT(NB0X-NXHXCS  +  1)#UX- 
1  XI  (4).XK1  )  )/l»X 

If  (KT  .10.  KK)  R(NRF.NCF)*R(NRF.NCF)«(XE(5)-XE(l)-fL0AI(NB0X-l)* 

1 1)  X  )  /  j)  x 

IF  (KF  .10.  KK)  R(NkF-1 . NCF ) *H( NRF-1 #  NCF  > • <  XE ( 5 )-XE ( 1  )-f  LOA  T  < NBOX- 
I  2  )  •  I)  X )  /  II X 
34  0  CIJNIINUI 
100  CON  I  I  NOE 
9*>0  CON  I  I  N ‘If 
41)0  CON  I  I  NOT 
OF  TORN 
END 


i 
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*  • 


cso?  so? 

SIJRROUT I Nfc  SD2  ( S, R, C, R, T»  TR»  TH) 

DIMENSION  S(4‘>,45),R(45»45),C<45,45),b(45,45),T(45.45), 

1  TR(45»4*>),TM(45,45)  • 

COMMON/C). /KHOXdOUO  ).  XF(5>,  YE(3>.  X1.X2.X3.X4,  Yl « Y2, BET  A, NBS 
C0MH0N/C4/MUR(«>U  ).NHL(5«).KC(*>0),KL(2e),BSL(?0),DXE(7).TPl»U 
COMMON/CS/X,  Y,nx,»Y,EM.FK»EKB.EKR,NP,RP,H8,NR0X,K0Dt.M0l>E,NBH,NBT 
COMMON/C7/XA IC(10,10,2),YA1C(10,2),NX6X(40),NYBX(40). NX6XCS 
COMMON/Cfl/NXW  INO.NYwlNG.NXCS.NYCS 
r  »«i  THIS  SUBROUMNF  GENERATES  THE  REAL  PART  OK  THE  SUBSTANTIAL 
C  •**  DERIVATIVE  MATRIX  F OR  THE  VELOCITY  POTENTIAL 
•ISUBsNXBXd  ) 

*H=NBS 

NM  s  0 

00  10  1  =1 . HH 

10  ^MsnH^NXHXI  I  MNXHXCS 

no  ?0  1=1, NM 
nn  ?o  j=1,nm 

20  TM(  I ,  J  )  =  0  ,  fl 

no  ino  i*i, p.r 

IF  ( NXRX ( I )  .FQ.  1 )  00  TO  100 
NXS=NXBX< I ) 

CAl.l.  BHAT  INXS.NRSB.NCSB.B) 

CAI t  THAT  ( NXS , 1 , 1 ,  1»HSIZE«?«T,R) 

DO  101  HR=1 , MS  I ZE 
DO  101  MC*1,NCSB 
,  TR(MP,MC)=0.0 
DO  101  MRC*1 .MS1ZE 

101  rR(MR,MC)  =  TB<MR,MCMT( MR, HRC )*B(MRC,HC> 

CAll.  CHAT  IKXS.  )  .2,1  , NRSC# NCSC , 2 , C > 

00  10?  MRsl.NPSL 
HO  102  MC=1,NCSH 
T  <  MR  #  MC  1*0 • ft 
no  102  HRCsI.NCSC 

102  UMR,MC>=I<MR,MCM'  .  MR,NRC>»TR(HRC,Pt  > 

KROWsQ 

no  140  11=1,1 
140  KRnwsKROH*NXRX< ! - • 

KROW=KROH-NXRX< I ) 
no  180  LR  =  1 »  NXS 

lrowskrow+lh 
no  180  LC=1,NXS 
icni=KRUM*n: 

180  T  H  ( |  ROW. t  cm  >=tu  h.i  c> 

100  CONIINUL 

IF  ( NXHXCS  .1  I.  ?)  GO  TO  J00 
no  2  II 0  1  =  1,  HR 

CAM  DMA  I  (NXHXCS. NHSB.NCSR.B) 

CAM  IHAl  (NXHXCS, t, 2, I •  M  S  I  7  E ,  3 » T»R) 

DC)  201  MM  =  l,HSI/f 
no  201  MC  =  1 , NCSH 
TIM  MR,  MC  )  =  0  .  ft 
DO  ?ft|  MKC* 1  ,  M  S  I  /  E 

201  IR(MR,MC)  =  TIMMR.MC)*T(MR,MRC)«B(MRC,MC) 

CAM  CM A  I  (NXHXCS, 1,2,2, NRSC, NCSC, 3, C) 

00  2ft?  MR  =  1  ,  NRSC 
00  20?  MCsl.NCSH 
f(MR,MC>=0.0 
00  202  NKC= 1 , NCSC 

20?  T ( MR, MC)= I (HR,MCMC(MR,MRC)»TH(HRC,RC> 

KROWsft 


no  ?0.3  I  J  =  1  #  MM 
?03  KHOW  =  KHOW*NXRX  <  |,|) 

KROW=KPOW*( |-i )»MXBXCS 


Cl RAMP 


SUBROUTINE  i  RAMP  (N1F,MR0rS»KC0LS»S»R,C»8»T.TR,TI,TM) 

'I  I  Ml-  NS  I  OH  S(4‘»,4«>),R<45,4‘>),C<4*.45>,B(45.45>,T<45,45>,  IR<4*>»45)» 
1  Tl <45.4*>,TH(45»45> 

COMMON/Cl/KMOXI  100  0  ),  XF<5)»  YE<3).X1,X?,X3.X4,  Y1 , Y2. BE TA , NBS 

COMMON/C4/MOR<5U  > ,  NHL  ( 50  > ,  KC  <  !>0  > .  KL  <  28  > ,  BSl  ( ?0  > ,  DXE  <  7  > ,  1 P I ,  U 

CUMMON/C5/X,Y,5)X,|)Y.EM,EK»EKe»EKR.NP,MP,NB,NBOX,KODE,HOUE,NBMfN&T 

COMMON/C7/XA|C(10,10,?),YAIC(10,?)«NX8X(4U),NYBX(40),NXBXCS 

COMMON/C8/NXU|NG,NYWlNG»NXCS»NYCS 

MR=N8S 

KCOI  S=NXWING*NYWING+NXCS»NYCS 
KROHS=  0 
00  19  1=1, MH 

19  *RORS=NXBX<  i  )*NX8XCS>KR0HS 

r  •  Zfpf,  TH  M  A 1 R  I  X  FOR  SPANWISE  INTERP0LA1  ION 
00  ?0  I=1,KK0WS 
DO  ?0  J  =  1,K(,01S 

20  TM(  1 ,  ,1 )  =  0 . 0 

C  ***  SPANHISE  I N I FRPOLAT 1  ON  (WING) 

IF  (NYW1NG  , FU.  0)  GO  TO  1999 

no  i o o n  l  =  i, Nxw ing 

CAM.  HHAl  (NYw|NG,NRSH,NCSB»B) 

CAI I  IMAT  (NYw!NG,2,1,1,MS1ZE»1,T»R) 

00  1001  MR=1 ,hsi?e 
00  1001  MC=1 , NCSR 
TR(MR,MC>=0.0 
no  1001  MRC=1. MSI/E 

1001  rN(MR,MC)  =  Tl'(MR,MC)  +  T(  HR,  MRC  )  *B(  MHC,  Ml ) 

CAM  SMA1  <MR.NYW!NG,1.NRSC»NCSC,S> 

00  1002  MR=1,WRSC 
no  100?  MC=1.NCS8 
T  (  MR  ,  MC  )  =0  .  (I 

on  1002  mhc=i ,ncsc 

1  no?  T( MW, MC )  =  T (MR, MC )*S(MR, MRC )*TR(MRC»  PC  ) 

<ROW=( 1-1  )  *MR 
00  1080  LR=1 .MR 

lroh=krow*lr 

KCOI  =( 1-1 )#NYWING 
no  1080  ic=1 .NYH1NG 
I.COI  =  K C 0 L  ♦  L C 

1  n«n  TM  ( I  ROW,  LCOI  1  =  T  (  L  R ,  I  C) 

11)110  CONI  I  Mill 

I9>iq  CONI  I  NIK- 

C  •  ••  SPANHISI  IRANSI ORMAI I  ON  ( CONTROL  SURFACk  ) 

U  (NYCS  .1  0.  II  )  GO  TO  2999 

1*0  201)11  1=1  ,  NXCS 

CAM  HMA1  < NYCS, NRSH, NCSB.B > 

CAM  I M A  1  (NYCS,?,?, I , MS  1 ZF # 1 , T , R  ) 

DO  201)1  MR  =  1  , MS  I  7F 
DO  20111  MC=t,NCS8 
fR(MR,MC)=0.0 
(10  2001  MRC  =  1  ,MS|  /F 

20  01  rH(hR,MC)  =  TK(MR,MC)  +  T(MR,MRC)«B(MHC,M(') 

CAM  SMAT  (MR,NYCS,?,NRSC,NCSC,S) 

DO  200?  MRs 1 , MRSC 
DO  200?  MC=1 , MCSH 
U MR, MC  1  =  0.0 
DO  2011?  MKC  =  1  ,  NOSC 

2  Ml  2  I (hr,mC)= I (OP.MC)»S<MH,MRC)»TR(MRC,MC) 

KROW  =  MH«NXHI NO* ( 1-1  )«MB 
IK)  2080  ll<  =  1  ,  MR 
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i  rowskrowh  k 

KRM  =NXUlNG«NYWINiiH  1-1  )*NVCS 
1)0  ?0«0  LC  =  1  ,  NYCS 

i  cm  =kcol*lc 

2080  TMU  ROH.LCOl  >  =  T(LR»l  C) 

2000  CONTINUE 
2999  CONTINUE 

C  **•  REARRANGE  RUMS  AND  COLUMNS  FOR  CHURDW 1 SE  IRANSFORHAT { ON 
CALI  RMA  T  (MR,NXWING.HB»NXCS»MSIZE»R) 
no  2050  MRsl.MSIZE 
no  2050  MC=l.KCOLS 
T! (MR.MC)sO.fl 
no  2050  MRC=1. KNOWS 

?05ft  T  I  (MR,MC)=TI(MR»MC)+R(MR,MRC)*TM(MRC»MC) 
r  mi  ZEPO  TM  MATRIX  FOR  CHORUW1SE  INTERPOLATION 
HCOl S=MB«(NXW|NOtNXCS) 

MROWS=0 

no  io  i si, mu 

10  MROWS=MROWS+NXBX ( I NNXRXCS 
DO  60  I  =  1 ,  M  R  0  W  S 
00  60  J  =  1  .MCOI S 
60  T M < I  , J  )  =  0 , 0 

C  mi  CHOROWISE  INTERPOLATION  (WING) 

IF  (NXWING  , F i* .  0)  00  TO  3999 
DO  3000  1=1, MB 

Can  bmat  (nxwing. nrsb,ncsb,b> 

CAN  THAT  (NXWING. 1,1. I, MS1ZE/1.T.R) 

no  30oi  mrsi.msize 
no  3001  MC=1 , NCSR 
TR(MR.MC)=n.0 

no  3001  mrc=i.msize 

30  01  TR(MR,MC)sTR(MR.mC)*T(MR,MRC)«B(MRC,M(.  ) 

CAN  CHAT  (NXWING, I .N1F.1.NRSC.NCSC.1 ,C) 
no  3002  MRs 1 , NRSC 
no  3002  MC=1 . NCSB 
T  (  MR ,  MC  ) s  II  •  0 
no  3002  MRC=1 , NCSC 

300?  T(MR,MC)=1 (MR,MC)iC(MR,MRC)*TR(MRC.MC) 

KROW=0 

no  40  11=1.1 
40  KROW*KROWiNXOX(  I  1  ) 

KROW  =  KROW-NXRX< I  ) 

•  I  JsNXhX  (  I  ) 
no  3080  LR= 1 .  N 

I  ROW-KROWU  r 

KCOI  =(  l-l  )  •  N  X  W  I  N  (5 
no  3080  LC=1 .NXWING 
I.COI  =KCOl  ♦l.r 

30H0  TMU  ROW.I  COI  »  =  T(LR.l  C) 

3000  CONIINUI 
3«JV9  CONIINIU 

(!  •**  CHORD  W  I  SI  INI!  RPOLAI  ION  (CONTHOL  SURFACE) 

II  (NXCr.  .F(j.  II)  00  TO  4999 
DO  4000  I  = 1 . MM 

CAN  MM A  I  (NXCS.NRSM.NCSB.B) 

CAN  THAT  (NXCS.1 ,2, I.MSfZE.l.T.R) 

no  4001  mr=i , ms i /r 
no  400)  Mc=i,ncsB 
I R ( MR, MC  )  =  0 . 0 
no  4001  MRC=1 .MSIZE 

4  0111  TR(MR,MC)  =  TR(MR,MC)  +  T(MR,  HRC  )  *B  (  MRC ,  MC  ) 
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CAN  CHAT  (UXnS, | *N1F,?,NRSC»NCSC»1#C> 

Tnn  400?  hhs] * nrsc 

DO  400?  MCsl.NCSB 

HMR*MC)«0.fl 

no  400?  HHC=1 • NCSC 

400?  r(M«,Mn)*T(MR,HC)tC(HR,HRC)«TH<HRC#HC) 
KROW*tROW*< 1-1  )»NXBXCS 
no  4080  lRsl,NXRXCS 
MROHsKROW»LR 

4C0L  =  MB*NXM I  NO* (  l-l)*NXCS 
00  4080  LC*1 «  NXCS 
T  NCOlaKCOL+LC 

I  40«n  TMtNROW.NCOL )sT(LR»LC) 

4  ;  I<  0  CONTINUF 
49V9  CONTINUE 

no  5oai  mrsi^mroms 

00  5001  MC*1 * KCOLS 

TR(HR,MC)a0.n 

no  5001  MRC=1 .MCOlS 

5001  TR(mr,HC)  =  T(MMR,HC)»TM(MR,MRC>*TI(HRC.HC) 

CAM  RMAT  (5YUtN0*NYUING*NXCS«NVCS*MSl2E#N) 
no  5050  Isl.MROMS 
no  5050  J=1.MSIZE 

rm.j)=o.o 

1  .  no  5050  Kal,M«;i2E 

I  5050  ri(|.J)«TMI,J»*TH(  .K)»R(K#J) 
no  5052  1=1*  MRONS 
no  505?  J*1 *  MS  I ZE 

,  *  5052  TRU.JlsTK  J,J)  v 

RETURN 
END 


■L 


l 


i 
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CRSLS  BSLS 

SURKOUTINfc  h SI  S ( ARG. N  ) 

n0MM0N/C4/MDR(*fl  >»NBL(50  )»KC<!>0  >«kL(?tt  )f  BSL(20)«DXE(7)*  IPI»U 

no  1  i  =  l  #  2  (i 

1  BSL  (  i  )  =  0.0 
ASQ  =  ARG**2 

IFtASO.LT.O.OI )  GO  TO  50 
N  =  HINK17.D.  ( ARG  «■  10.0>> 
r  =  2*N  ♦  4 

«SL(N*?>  =  <4.0*F*(F-l.0)/ASQ-(F-1.0)/F  >»0.3f  30 
PF  =  0.0 
.1  =  0 

DO  10  I  =  J,N 
H  s  N  -  I  ♦  1 

r  =  2*H  ♦  1 

RSI  <M)=(4.0«(F-t.O  > / ASQ-1 . 0/F -1 . 0/ < f -2 . 0  )  M«Sl  (  M+l  )-BSL  (  M*2  )/F 
10  PF  *  PF  ♦  2.fi«(F-2.fl)*RSLCM*l) 

PF  =  PF  ♦  BSI.  (1  ) 

F  =  0.0 

IF(AOS(PF),GT.1.0)  F  =  ABS(PF >  *  1 . E -1 0 
N  =  N  ♦  2 
no  30  I  =  1»N 

IF(f .OE.AHS(RSL(I>>)  GO  TO  20 
»SL< 1 )  =  8SL . I ) /PF 
GO  TO  30 
20  BSI  (  1  >  =  0.0 
30  CONTINUE 
RETURN 

50  RSI  (?)  =  0.1?5*ASU 

RSI  (1  )  =  1.11  -  2.0  *HSL  (  2  ) 

N  s  2 

RETURN 

END 


chons 


cons 

UlOCK  DAU 

COMPLEX  CZERO,  VPIC,SS,PHIW*SPH!,PHI*PPI  IE.DPHI 
COMHON/Cl/KHnxdOOO  >»  XE<5>,  YE<3),  X1,X2*  a3.X4.  Yl,  Y2,BETA,NBS 
COMMON/C2/AS, NMACH,*MACH(6>»NFRfcQ,FREC<10)» NHODE*  NSURF » IPUNCH, KF 
COMMON/C3/VPfC<2025>,SS<2025>,PHlW<50>,SPHI,CZERO,PHl,pmTE»DPHl 
COMMON/ C  4/M  OR(60),NBL(50)»KC(S0)»Kl(28)*BSl.  (20), DXE(7),TPI,U 
C0MM0N/C5/X.Y.DX,  0 Y » EM ,  EK EKB «  EKR  <  NP ,  MP,  NH ,  N80X ,  KODE  *  MOlJE,  NBM,  NBT 
C0MM0N/C6/XI  , NS, K , J, lFR,TWL,RHO 

COMMON/C7/XAIC(  111,1(1,2),  YAIC(10,2>.NXbX(40>,NYBX<40>,NXBXCS 
COMMON/C8/NXUINO. NYWlNG, NXCS.NYCS 

MATA  KC/1 .2,4. 7, 11 ,16,22, 29.3 /,46, 56, 6 7,79,92,106, 121,137,154,172 
1 191, 2ll.2J2.2S4, ?/ 7, 301,326,3b  2, 3/ 9, 4  (1 7, 436, 4  66, 497, 529.562, ^96, 
2631 .667, 7 04, 742, 781,821,862, 90 4, 947, 99 1,1 036,1082, 1129, 11 77, 1226/ 
3TPI/6. 28318b 3 /.CZER 0/(0. 0,0.0)/ 

OATA  Kl /l, 1.1. ?, 3, 1,4, 5, 6, 1,7, 8, 9, 10, 1,11, 12, 13, 14, 15, 1,16, 17, 18, 
1  19,20,21,1/ 

FRO 


7 


441 


t 


i 


l  l 


CCAF  I  CAM 

SUBROUTINE  UH 

COMPLEX  CZERn,VPIC»SS.PHlW,SPH!,PH!»PMTE»DPHI 
DIMENSION  P(6>,M(5> 

CUNMON/Cl/KMnX(  1000  >. XE(5>, YE(3),X1,X2.<3.X4, Yl, Y2.BF1A.NBS 
COMMON/C2/AS .  NMACH, f MACH(6 ) , NFREO, FKFL ( 10  > , NMGDE » NSURF  »l  PUNCH, Kf 
COMMON/ 03/ VI*  IC(2025)«SS(?025)«PHIW(50),  SPH I , CZERO*  PH  I , PH l  If,  OPH I 
COMMON/C4/MUH  (50).NHL(5I),KC(60),KL(28),RSL(?0),DXF(7)*IPI,U 
C0MM0N/C5/X.  V.DX.DY, EM, FK.EKB, EKR, NP, NP, NB, NROX# KOBE, MODE, NON, NUT 
CUMM0N/C6/XI , NS, K, J, IFR, TWL, RHO 

DATA  P/0. 95308992, 0.76923465, 0.5, 0.23076535. 0.04691008/ 

1  ,  M/0. 11846344, 0.23931434, 0.2*444444,1. 23931434. 0.11046344/ 

PI  *  TPI/2.0 

IF( EKft.GT .0.0)  UO  TO  10 

VPIC  a  (-1.0, 0.0) 

GO  TO  30 
10  VPIC  a  CZERO 
00  20  I  s  1.5 
ARC  r  FKB»P(  I  ) / 2 . 0 
F  s  -(0.5*AKr,/FM)«»2 
ZJ  a  1.0 
FI  a  1.0 
AF  a  1 .ft 
00  15  K  *  1,20 
AF  a  AE  •  F/F  I *•? 

FI  a  F|  ♦  1,0 

If (ABS(AE).I  F.l.E-5)  GO  TO  20  ;  ,  '  , 

16  7J  a  7J  ♦  AP 

20  VPIC  a  VPIC  -  ZJ*H< I )»CMPLX(COS(ARG),-SiN(ARG)) 

30  DO  80  NP  a  2.NB0X 
K I  a  KC(NP) 

KZ  *  KC(NP*1 )  -  1 
DO  40  K  *  Kl  ,K7 
40  VPIC(K)  *  C/FRO 
Mil  a  NP  -  1 
DO  80  I  a  1.5 

•  X  *  FLOAT ( NU )  -  0.5  ♦  P(  |  ) 

ARO  a  FKB*X 

PHI  a  M(1 )  *CMP| X ( -COS ( ARO )»S|N(ARG))*?.0/P| 

CAIL  HSI.S  ( ARO/F  M ,  N ) 

K  =  KC(NP) 

DO  /0  MP  a  l.MII 

FOX  =  (II OA I  (HP)  -  0 .5  )/X 

C  =  SOR 1(1.0  -  FOX»«2> 

AF  a  ?.(l*ATAM(M)X/(  1 .0  ♦  C>) 

S  a  ?.0*FOX«C 

c  =  ?.o*n«c  -  i.o 

GO  a  0.0 

VIN  a  BSl  *Al 
I  =  1.0 
FI  =  1.0 


i 

l 

I 

I 

fi 

! 

I 


•  *« 


IF(HP.FU.l)  VPIC(K)  =  VPIC(K)  ♦  OPHI 
7(1  K  s  K  ♦  1 

80  VPJC(K)  =  VP  T  H  <  K  }  ♦  PI*SSt*P»?!/2.0 
RETURN 
END 
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CPH  I  p  PHIH 

SUPHOUTINfc  PHIH 

COHPI EX  CZEKO.VPlC.SS.PHlM,SPHI,PHl,PHlTE.DPH| 

COMMON/C3/ VP  1 0(2025), SS(20?b)#PHlW(50)#SPHI*CZERO#PH!,pH!TE*DPHi 

C0MM0N/C4/H0R  (50)»NHI(50),KC(50),M(2H)»BSL(?H)#DXE(7),1P!>U 

C0HM0N/C5/X#  Y,DX#l)Y#EM»EK»EKB#FKR*NP#PP»NB#NBOX«KODk,N3bE#NBU#N6T 

C0HM0M/C6/XI  . NS#  K . J. IFR#TWl»RHO 

00  20  I s?  #  HP 

MUsNP-l+1 

.IL-MAX0(1#MP-I*t) 

IR»H  I  NO  ( MOB  (  Nil) »  HP*  I  - 1 ) 

NJsNHI  (  NU  )  ♦  J| 

DO  ?0  .Is  Jl  .  JR 
KsKC(  |  )HAUS<MP-J) 

UPH I s  VP  1 C ( K  ) 

If  I  J.OT.  1-MPtl.OR.J.fO.l)  <iO  TO  iO 
K  =  KC<  I  )*MPo-2 

uph  i  s|»ph  I  ♦  vp  i  n  <  K ) 

in  spHisSPH!*npHi#ss<Nj> 

20  NJ=N J*l 
RETURN 
END 


CARLE  ARLE 

FUNCTION  ARI  F(TOB) 

OOMMON/Cl/KHOX(1AoO),XF(5)#YE<3)*Xl»X?»X3*X4>Yl#Y2#BpTA»NBS 
COHH0N/C5/ X  , '  I|Y,EH*EK#EKB.EIIR#NP#PP#NH»N0OX#KODE,HOIIE#NBM»NBT 

COHHON/C6/XI  .  US.K.J.  IFR#  TMl.RHO 
IF<X-0.**UX.OI-.X1-X?>  00  TO  10 

IF  (TUB  . MJ.  II. U  .OK.  TOR  *GT.  l.OF^lU)  00  TO  20 
YT  s  (  Y-Yl  >/im«.*>-<  x/nx-o.*>/T08 
XR  =  YT»TUB 

YR  =  AHAXKII.II.  AHIN1  (1.0.  YT-l.O/TOB)) 

YT  =  AHINKI  .I|,AMAX1<0.0»YT>> 

XI.  =  AHAXKfi.il, AHINKI. O.XR-TOB)) 

XR  s  AHINKJ  .  il,  AHAXKO.O,  XR) ) 

4PU  =  AHAXKI).5*(YT*(XR*XL)*YB«<XR-XI  )),(I.O) 

IT  (Hp.EQ.l )  ARIF  s  ?  . U*ARLE 
RETURN 

1(1  ARI  E  =  AMIN1  (1.0,  AHAXKO.O,  (V*Y2)/DY*0.5)  ) 

RETURN 

2ft  AR|  E  s  0.0 
RETURN 
END 
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CCHAT 


SUBROUTINE  CHAT  (NAICPX,  lY.Mf  .NS.NNS.NCS.Nfc.C) 

0 1  MENS  I  ON  0(46.45) 

COMMON/C 1 /KNOX ( 10UO)»XF(5)#YE<3).Xl»X?»X3,X4,Yl«Y2.8FTA. NBS 
COMMON/ C5 / X,  Y,  OX,  l)Y ,  FM,  EK  #  EX B»  EKR,  NP,  MP,  NB.  NBOX,  NODE  ,  MODE.  NBW.  NBT 
COMMON/C7/XA!C(  1C  ,  111,2  ) , YA IC <10 , 2 > , NXbX ( 40 > ,NYBX< 40 > , NXbXCS 
COMMON/CB/NXWINO.NYWlNO.NXCS.NYCS 
C.  •«*  roR  CHOROMISF  I NTERPOL A  1 1  ON 
V.  «♦  NPTS  =  NUMBER  OF  CHOROWISE  MACH  BOXES 
r  •••  NAICPX  =  NUMBER  Of  CHOROWISE  A I C  CONTROL  POINIS 
C  •••  IY  *  SPAN  NOHHER 

C  U|F  =  CONIRUL  TOR  DlFrERENTIAT  ION  (1  =  N0  DERIVATIVE  AND  ?*DO/DX> 

C  •••  MS  *  SMRFAC!  <  1  -  U I  N(j  AND  2*1AIL> 

If  (NAICPX  .OT.  3)  00  TO  J 
MkS  =  NXBX( I Y  ) 

IF  (NS  •  EU.  2)  NRSsNXBXCS 
NCSsNAlCPX 
00  1  |  *1 »  NRS 
00  1  J*1,NCS 
1  C<I,J)*0.0 
00  TO  100 

3  NRS=NXBX(IY) 

IF  (NS  .EO.  2)  NRSsNXBXCS 
NC$*3* (NA ICPX-2 ) 

00  4  1*1, NRS 
no  4  Jsl.NCS 

4  C( I, J)=0.U 

100  ir  (NCS  .OT.  0)  on  TO  900 
IF  (NCS  .EQ.  A)  OU  TO  400 
GO  10  (200.  POO.  3011),  NCS 
C  TWO  CUORDW I  SI  AIC  CONTROL  POINTS 

200  no  21 U  1*1, NRS 
C( f,l  )=1.0 

C(  I  ,?>sXBOX( ! , I Y , NS, NE  ) 

IF  (NIF  .EQ.  2)  C( 1,11*0.0 
IF  (NIF  .EQ.  2)  C(l, 21*1.0 
210  CONTINUE 
RETURN 

C  ***  THREE  CHORDW I SF  AIC  CONIRUL  POINTS 
300  00  310  1*1. NRS 
C(  1,1 >*1.0 

C<  ?,?>  =  XROX( I, I Y, NS, NE ) 

C(  1 , 3 ) *  XBOX ( I, lY.NS,Nfc>«*2 
If  (NIF  .EQ.  2)  C< 1,1 >*0.0 
If  (NIF  .EQ.  2>  C( I , 2  )  *1 • 0 
If  (NIF  .EQ.  2)  C ( l,3)*?.0»XBOX( I. I  Y, NS* NE ) 

310  CONI  I NUl 
RETURN 

C  •••  FOUR  CHUROWISf  AIC  CONTROL  POINTS 
400  00  410  1*1, NRS 
NXaNAlCPX-1 
00  406  .1*1  .NX 

If  (  0,9*<  Xlnn  J,  I  Y.NS.Nf  MXINT  ( J»1  ,  l  Y.NS.NE  >  >  .OT.  XROX(  I »  I  Y .  NS. NE 
1  >  >  on  rn  40/ 

406  CONI  I NUE 
NX*NA I CPX 
GO  10  408 

407  MX*  J 

408  KCsJ 

IF  (NX  .01.  2)  KC*4 
C ( I , KC ) *1 . 0 
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C(I.KC*1)SXR0X(I»IY»NS»NE) 

C( I,KC*2)sC( I,KC*1)*#2 
fF  (N1F  .60.  2)  C< I . KC  )*0 .0 
IF  ( N IF  .FU.  2)  C( l»KC*l)*1.0 

If  (NIF  .feti.  2)  C<l.KO2)*2.0«XBOX<!. IY.NS.NE) 

410  CONTINUE 
WFTURN 

r  **•  .OT.  FOUR  Air  CONTROL  POINTS 
500  110  *>10  I  *1 »  NRS 
(XsNAICPX-1 
TO  506  .1 a  1 »  N  X 

IF  (0.5«*(XlNT(J»lY»NS»NF)*XINf(J*l#IY.NS»N6))  .QT.  XBOX ( I* I Y»NS*NE 
ID  00  TO  *>0/ 

50 A  COM  INUF 
NX  =  NA ICPX 
00  10  508 

507  N  X  = .) 

508  IF  (NX  .LT.  .1  >  00  TO  550 

IF  (NX  .GT.  NAICPX-?)  GO  TO  588 
KC- ( NX-2 ) • 3 ♦ 1 
C(  l.KC)  =  1.0 

C(I.KC*t>aXHOX( I, IY.NS.NE) 

C(  l.KC*?)aCU»KCM )«*2 

IF  (NIF  .FQ.  2)  C(1.KC«1)«1.I 

IF  (NIF  .FU.  2)  C(  I»KC«2)«XB0X(|. IV.NSfNE) 

IF  (NIF  .FU.  2)  C (  I »  KC  )  *0 . 0 
00  TO  510 
550  C( I.l  )  =  1  .0 

C(  1 , 2)-XH0X( I* IY.NS.NE) 

C(  I,3)“C( l,?)»*2 

IF  (NIF  .FQ.  2)  ClI.DsO.l 

JF  (NIF  .FQ.  2)  C(l. 2)*1.0 

IF  (NIF  .FQ.  2)  C( I »3)*XB0X( I . IY.NS.NE ) 

00  TO  510 

580  C( I.NCS-2)*! .0 

C(  I.NCS-1)*XR0X( I. IY.NS.NE) 

C(l.NC$>aC( I.NCS-l)#*? 

IF  (NIF  .FQ.  2)  C(  I.NCS-2)*0.0 
IF  <  N I F  .60.  2)  C( l»NCS*l)al.O 
IF  (NIF  .FQ.  2)  C< I. NCS)»XBOX( I. IY.NS.NE) 

510  CONTINUE 
RETURN 
END 


CHMAT 


MSI/F  =  NXW|Nf;»NYWlNG*NXCS»NYCS 
oo  iflu  1*1 . m«; i ze 
on  too  j*i»msi7F 
i«0  »<i,j)sn.(i 

^  (  NXW 1 NG  .F«.  0)  go  TO  250 
KKsl 

1 1 5NYH I UG*NXM I  NO 

00  200  I=l,|| 

0(  I,K)=1.0 
KsK*NXM!NU 

IF  (K  .GT.  If)  KK  =  KKM 
IF  <K  .GT.  m  KsKK 
200  CONTINUE 
250  CONTINUF 

IF  (NXCS  .EO.  fl)  GO  TO  350 
I  I=NXCS*NYW1NG 

k*nxming»nynino*i 

KKsNXWING*NYHINO*i 
00  300  1*1 , I  I 
IK=l*NXUlNG»NYUlNG 
R(!K,K)=1.0 
K=K*NXCS 

IF  <K  .GT.  HSI7E)  KK=KK*1 
IF  (K  .GT.  NSI7E)  K=KK 
300  CONTINUE 
350  CONTINUE 
RETURN 
END 
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J  nx i nt 

i  niNCTION  XINT(NX,NY.NS»NE) 

OOMMON/Cl/KI<nx(lOOO>.  XF<5>»  YE ( 3 ) , Xl , XX. X3. X4.  Y 1 , Y2 . BE T A. NBS 
C0MM0N/C4/M0B(5U  >» NHL  150  >,KC<*0  ) .  KL  ( 2«  )  »8Sl  ( 20  ) ,  DXF  ( 7  ) » 1 P 1 .  U 
C0MM0N/C5/X.Y.0X.UY.  EM » EK » EK B . EKR . NP , KP . NB . N0OX « KODE  ,  MODE*  NBW.NBT 
COMMON/C7/XA!C(l0.l0*2)»YA!C(10#2)*NXbX(40)#NYBXM0).NXbXCS 
C()MMON/Cfl/NXWING.NYNlNO.NXCS»NYCS 
IF  (NE  . G 1 .  1 )  GO  TO  400 
IF  (NS  »EQ.  1 )  GO  TO  200 
X|NT-XAIC(NX»1 .NS) 

RETURN 

200  IF  ( Fl OAT ( NY  )  • 0  Y  —  0  Y  .OF.  YS  <  2  > )  GO  TO  300 
XINT=XAIC(NX. 1 ,NS) 

RETURN 

300  IF  (YAlCU.I  )  .LF.  YF  (  2  )  ) 

1  SI  OPE  =  < YA IC(NVWlNG.1  ) - Yfc ( 2 ) ) / ( X A  I C < NX . N YM 1  NO » 1 ) *XA I C ( NX . 1 » 1 )  ) 

If  (YAICO.I  )  .GT.  YE  (  2  ) ) 

1  SLOPE  =  ( Y A | C ( N YH I NG  *  1 ) - Y A  I G U . 1 ) ) / ( X A  I C ( N X . N YW I  NO. t  > - X A I C ( NX » 1 » 1 >  > 
IF  (YAlCU.I  )  .LF.  YF  ( 2  ) ) 

1  x|Nl  =  <nY*ri.uAI<NY)-nY-YE<2)*YE<l)>/SUPI:  ♦  XAlC(NX.l.l) 
j  IF  (YAlCU.I)  .GT.  YF ( 2  )  ) 

I  1  XINls(OY*FLUAT(NY)-l»Y-YAlC(l.l)»YE(l))/SLOPE  ♦  XAlC(NX.l.l) 

RETURN 

,  400  X|NT  =  llX*(FLUA7(NX)-0.‘>) 

RETURN 

END 


I 

i 


*S»*-***  v  .'*«*«•<» 


■*.  I  1»|W 


rxflux 

FUNCTION  XBUX(NX,NY,NS,NE) 

COMHON/rl  /KhOX(  10U0)»XF(5)#YE(3).Xl,Xk,*X3#X4,Yl*Y2*BF(  A  #  NBS 
COHMON/Ci/X.  Y#nX#OY,EM,tK,6KB»PKR»NP,>'P,HB»NBOX#KODJ  .  NODE#  NBW, NbT 
n«HMOM/C7/XAfC(  1 0  #  1 0 , 2  ) ,  YA !  C  (1  0 , 2  > .  NXI)  X  ( 4U  ) ,  N  YBX<  40  ) ,  NXBXCS 
If  ( Nfc  .01.  1  )  00  TO  300 
IT  (NS  • fcU.  ?)  GO  TO  200 

XBOX*OX*(f  L  (» A  T  <  NXB  X  ( 1  ) ) -FLOA  T  <  NXB  X  ( N  Y  > >  )*f)X»FI.OAT(NX  )-0.5*DX 
RETURN 

?0f.  XBnx*XE(4)*DX*(FLOAHNX)-0.»>) 

RETURN 

300  XBOXsOX*<f LOAT(NX)-U.<>) 

RETURN 

END 


cyrox 

FUNCTION  TBOX(NT) 

COHH0N/C5/X»Y.nX*|)Y  #  FH , EK  * EK8 » EKR >  HP #  HP » NB  *  NBOX » KODfc  .MODE*  NbW<  NUT 
YROXsDY«<FLUAT<NY)-1.0) 

RF  TURN 


* 


f  8MAT 

SUBROUTINE  RMAT  ( NPTS# I  ROWS# I  COLS # B ) 

01  HENS  I  ON  B<45,45) 

C  •••  B  s  B( IRONS# ICOLS)  MATRIX 

C  **•  NPTS  s  NUMBER  Of  AIC  STATIONS  ALONG  STRIP  (CHORDWISE  OR  SPANwISfc) 
ICOI SsNPTS 

IE  (NPTS  .GT.  3)  GO  TO  200 
I ROWS*NPTS 
no  50  I  si # I  ROWS 
no  50  jsi, icoi  s 

SHI*  J)sU.O 

IP  (I  .EO.  J)  R  (  l  ,  J  )  =  1 . 0 
50  CONTINUE 
RETURN 

?un  IR0WSs6«(NPiS-4 )*3 
no  300  {si, (ROWS 

no  300  jsi, icots 

3U0  R(I#J)sO.O 
0(1 #1  )sl.O 
*H?»2)sl.O 
«(IROWS,lCOLS)si,0 
B<IROWS-l# irOLS-l)sl.O 
IF  (NPTS  .EO.  4)  00  TO  400 
KsNPTS-4 

no  350  1*1. K 
NR*2*3* I 
NC*2* I 

350  R( NR# NC )-l • 0 
400  RETURN 
END 
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I 

I 

1 

1 

I 

I 

I 


I 


CSMAT 

SIlBPnii r  l  Nfc  SHAT  ( N I Y . NA 1 CPY . NS , NRS » NCS .  S ) 

HHf  NSION  S(46»4«>) 

COMMON/C7/XAIC(10,lfl.2),YAlC(10,?>.NXbX(4U)»NYBX(40)»MXbXCS 
C0MM0N/C8/NXW I NG,NYWING,NXCS.NYCS 
r,  ...  NA1CPY  =  NUMBER  OF  SPANWISE  A1C  CONTROL  POINTS 
C  ...  KIS  =  SURFACE  <1=WING  AND  2MAIL1 
C  MRS  =  NUMBER  OF  ROMS  IN  S-HATRIX 

C  •«»  NCS  =  NUMBER  OF  COLUMNS  IN  S-MATRIX 
c  cohmon 

if  (naicpy  .nr.  3)  go  to  b 

=  H  I  Y 

SC$=NAICPY 
)0  6  1=1#  NRS 
DO  6  J=1 #  NCS 
6  S( I, J)=U.U 

on  io  inn 

R  NRSsNIY 

NCS  =  3#(NAlCI'Y-?> 

DO  9  1=1. NRS 

HO  9  Jsl.NCS 

9  S(I#J)  =  «.(I 

tun  IF  ( NCS  .GT.  A)  00  10  500 

IF  (NCS  .EQ.  6)  GO  10  400 

no  10  (20o.?n«,30u >,ncs 
r  rwn  aic  points 

21)0  1)0  260  I  =  1 .  N  I  Y 
S(  I.Dsl.n 
S( 1 . 2 )  =  YROX ( I ) 

260  CONTINUE 
RETURN 

C  •  ••  THREE  AIC  PO I  UTS 
TOO  1)0  360  1=1, NIY 
S<  1 ,1 >  =  1.U 
S(  1,2)  =  YR0X( I  ) 

S (  1 , 3  )  =  S( 1 , 2  )«  «2 
360  CONTINUE 
RETURN 

C  •  FOUR  AIC  POINIS 
4U0  no  490  1=1, MY 
I  C  =  4 

If  (YBOX(l)  .IT.  U.5«(YAIC(2.NS)+YAIC(3,NS)))  IC«1 

SCI.  10=1.0 

S( 1 . 10« 1 )  =  YhOX( |  ) 

si  i ,  tc«?>*S(  i*  tc*n*»? 

4  0  CONIINUI 
Rt  TURN 

C  **.  .01.  fOIIR  AIC  POINTS 
•>iiii  no  *>?n  l  =1  #m  v 
N I =NA I RPY-2 
III)  626  .1=1,  N| 

If  <ll.6«<  YAlC(.f,NS)*YAIC(  J*1,NS>)  .OT.  YBOX(I))  00  TO  523 
*>26  CONI  I  NUI 

I  C=3*NA I CPY-B 
on  in  624 

623  I  0  = ( J-?  )  * 3 ♦ 4 
If  <0  .IT.  S)  IC=t 

624  *» (  I  >  10  =  1.9 
'» c  i ,  i c ♦  i  >=rnn<<  i ) 

S<  I ,  IC*?)=S( i , IC*l>«»2 

620  CUNT INUE 
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C1HAT  THAT 

SUBROUTINE  1  HA  1  (NPTS. ND. NS.  lY.HSlZE.NE.T.R) 

•I  1  Ml-  N  S 1  ON  1(4‘>,^5),H(45,4&) 

COHMON/C7miO(l0.10.2).YAIC<10,2).NXBX(4U)»NYBX<4  •  .  .NXHXCS 
COMMON/CB/NaMING. NYU  I NG» NXCS, NYCS 
C  *#*  OF  NERATES  <T)««(-l)  HATRIX 

C.  «*i  NPTS  =  NUMBER  OK  A I C  PRINTS  ALONG  STRIP  IN  NO  DIRECTION 
r.  #**  HSI2F  =  ORDtR  OF  T  HATRIX 
r  ...  us  =  SURFACI  <l=HlNG  AND  2*CONTROL  SLRFACF) 
r.  ...  HR  =  INTERPd  AT  ION  HIKFCTION  <  1  sCHORLW I SL  AND  2*SPaNMISE) 
If  (NPTS  .11.  4 )  HSIZFsNPTS 
If  (NPTS  .01.  .1)  MS1ZE=3»NPTS-A 
Dll  1  ,J  =  1  .  MSI  7\ 

•  III  1  K  =  1  .MSI  /I 
1  I  ( .) .  K  )  =  Q  •  0 

If  (NPTS  .G I .  A  )  GO  TO  bOUO 
GO  TO  (2000, 9Mlrt, 3000, 4000).  NPTS 
P  •**  NPT S  =  ?  (IWli  POINIS  ALONG  STRIP) 

2 II 0  0  T  ( 1  *  1  )  =  1 . 0 
I  (2.1  )=1.0 

IF  (ND  .fc«.  1)  T(l»?)=XINT(l» IY.NS.NE) 

IF  (ND  .El).  1)  T(2.2)=X1NT(2. IY.NS.NE) 

IF  (Nl)  .Eli.  9)  T<  1,?)  =  YAIC(1.NS) 

IF  (ND  .Hi.  ?)  T ( 2  »  2  )  =  YA I C<2 »  NS  ) 

GO  10  ‘6U0 0 

C  **#  HP TS  =  3  (IHKFF  POINIS  ALONG  STRIP) 

3  0110  T(1,l)*1.0 

T(?»i)=i.n 
T(  3.1)  =l.u 

If  (Nil  .Eli.  9)  GO  TO  3010 
0  N  P  T  b  2  3  CHOPOw  I  SF  DIRfcCUON 

T(1  , 2  )  =  X I N  T  < 1 • IY.NS.NE) 

I  (1,3)s  |  (1,2)** 2 
T  (2. 2  )  =  X  INK  2.  IY.NS.NE) 

I(?»3>=1(2,?>«*2 
T(3.2)2XlNT(3» IY.NS.NE) 

T(3»3)=T(3»2)«*2 
GO  TO  6U0U 

C  **#  MPTS=3  SPANWISfe  DIRECTION 
3010  T(1.?)«YAIC(1.NS) 

I  ( 1 , 3  )  *  T ( 1 , 2 ) **2 
T(2.2)=YAIC(9,NS) 
l(?.3)=l(2,2>**2 
f  (  3 • 2  )  =  V  A  I C ( T,NS) 

T  (  3 , 3  )  =  I  (  3  .  2  )  .  •  2 

•in  in  mi  on 

■  •  ...  MIMS  =  4  HOUR  POINTS  Al  ONG  STRIP) 

4  n  ii  n  i  ( i .  n  =  t .  (i 

r  ( 2 .  i  >  *  J .  ii 
1(3.1  i  *  i .  II 
I  (  A  .  2  )  I  .  II 
1  <  •»  •  4  )  *  I  •  II 

I  (  A  ,  4  )  =  1  •  0 
K3.4)=-1  .0 
f  ( 4  .  •>  )  =  - 1  .  0 

II  (Nil  .f  0.  2)  DO  TO  4010 

f;  ...  npts  =  4  chop  dr  i  si  direciion 
fd»2)  =  Xl  Mid. IY.NS.NE) 
f  <1 ,3 i  =  T ( 1 , 2  )  • *  2 
I (?,? )=XI NT(2, IY.NS.NE) 
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r<?,3  )sm.?  >•*? 

T(3»2>s0.5»(  X  I  N  f  (2,  |  Y»NS>NFMX!NT<3.  IY  >NS,Nfc)  ) 

r(3.3)al(3.7)«»2 

T(3»5)s-T(3.?> 

1(3, 6 )s-T(3,.l> 

T(4.3  >*2.0*  i  (3.2) 

!M»6)«-TM..n 
r(S.5)*X!NT(3» I Y.NS.Nh  ) 
r(5,6>=I(5,5)#»2 
f ( 6 , 5 )  =  X I  NT ( 4 , IV.NS.Nfc) 
r(6,6)af(A,5)##2 

GO  TO  60 0U 

r,  NPTSM  SPANHISfc  DIRECTION 
4010  f(l.?)sYAIC(1 ,NS) 

T(1 »3)=1(1,?)**2 
T<?,2 )=YA IC(?.NS> 

T(?#3)=T(?»P)**2 

r(3»2)=fl.5*(YAIC(2»NSMYAIC(3»NS)) 

T(3.3)=1(3»P)**2 

T(3»5)«-T<3.?> 

T ( 3  *  6  )  a- T ( 3 .  1) 
f(4,3)=?.0*l (3,2) 

T(4,6)a-T(4.  U 
T<5,5)aYAlC<  1.N5) 
n«»6)*T(5»5)«a? 

T(6,5)aYAlC(4.NS) 

T  (  6 , 6  )  a  T  (  6 ,  5  > «  »  2 
GO  TO  6000 
r.  *##  NPTS  .GT.  4 
5000  IF  (NO  .EU.  ?)  GO  TO  5500 
H  **#  NPTS  .GT.  4  ( CHOHDw I SF  DIRECTION) 

1(1,1  )  =  1.0 

T ( 1  *  ?  )  =  X I  NT 1 1 , I Y , NS, Nh ) 
r(l,3)*IIl*2)»»2 
T(?,l  )sl .0 

T ( ?  ,  2  )  =X I  NT ( ? , JY.NS.NE) 

7(2, 3  )sT(2,2  )**2 
T (MSI ZF.MSI /  F  -  ? )al .0 
r(MSIZE.HSI/F-1 )=XINT(NPTS, IY.NS.NF ) 
f  (HSI/F  .  MSI/F  )=  F  <  HS  I  Zf- ,  MS  I  ZE-1  )**2 
MHSl/t  -1  »MS|7F-?)*1.N 

T ( KS I /)  -1  .MSI/F-1  )  =  X|NT(NPTS-1, 1Y.NS  F) 

I  (MSI  l\  -1  ,H!,I /F  )a  I  <  KS  I  71  -1  ,  MS  I  Zf  - 1  )« 

N 1 “NP I S-4 

•HI  50  I  0  N-1  ,  N  I 

NRsp*,i»N 

NC=3*N* l 

NP=N^2 

I <  NP, NC  )  =  1  .  n 

I  (NK,NC*1  )!>MI(NI»,  I  V,NS#NF  ) 

*»oin  r<NP,NC«?)  =  »(i»M,Ni;*i  )*•? 

N  I  »NP  t  *»-3 

•III  ‘>(120  N  =  1  ,  N  I 

NM-3*N 

‘1Cs3«N-2 

f  (NR.  NO  -  I  .0 

f  1  MP*  1  ,NC«  1  )*(.(( 

»(MP,NC*3)=-1  .It 
t «  NP-i  1  ,NC«4  t  :-1  .0 

r<NP,NC«1  )  =  I',5»(XIN1(N»1>  |V,NS.NF)»X!M<N»?>  I  V,  NS,  NT  )) 
r<NH,Nr*?)3l  OiR.Nl’il  )«#9 


I 

T 


sn?n 


•  •  • 

>  *>  n  (i 


I 


sbin 


I 

I 

I 


I 

I 

1 


002(1 

'  *  #  • 

6(111(1 


T(NR»NC*4)=-T(NR»NC*1  > 
T(NR.NC**>*-T(NR.NC*2) 
r  (  NH*  1 ,  NC*?  ;=?.U»  r<NR,N01 ) 
T(NR*1»NC*5)=-T(NM*1»NC*?) 

(10  TO  6000 

'•PIS  .01.  4  (SPANHISh  DIRECTION) 

I  ( ,  ,  1  )  =  1 . 0 
• (1 ,?)=YAIC(1 ,NS) 

T<1 ,3>»1U  ,?>••? 
t  ( ?  •  i ;  s  i . « 

H?#?)*YAIC(?»NS) 

T <?.3 )=1 <?.?  )**? 

MUSI/f  .HSI/E-?)sl  .  0 
MHSI/E.Mbl/F-J  >=YA|C(NPTS,NS> 
r ( PS | /F, MS  I  if  >=r<HSlZfc4MSIZE-l)«»2 
T (HSI /P-1 *  Hi>  i 7F-?  )=)  .U 
UH'oI  2F-1.HSI /F-l  )*YAin(NPTS-l#NS> 

T (HSI 7F *1 »MSI /F )  =  I (MSI ZE-l#HSIZE-i  )  *•? 
NT^NPTS-4 

nn  t>5in  n=i,ni 

NR  =  ?*.i»N 
NG*3*N* 1 
NP=N*? 

T ( NR  *  NC  ) s 1  .(• 

T(NR,NC*1  )  =  YA  IC(NP.NS) 

T(NR,NC*?>=  I  (MR,NC*1  >••? 

N  I  =NPTS-J 

0(1  b6?0  N  =  1  ,NI 

NR=3*N 

NC=3*N~? 

T(NR#NC)*1.« 

1 ( NR ♦ 1 , NC ♦ 1  )  =  1  .  0 
T(NR,nC*J)=-1  .0 
T(NR*1  #  NC*4  )  =  -1  .0 

1  (NR,  NC*1  )  =  0.t>*<  YA  IC(N«1»NS)«  YA1C(N*?,NS)  ) 
f  (NR,  NC*2  )*1  (r'R,NC*l  >*«2 
r<NR,NC*4)=-T(NK,NC*l) 
r<NR,NC*‘>)  =  -T(NR,NC*2> 

T(NR*l*NC*?  >??.«* T( NR# NC  +  l > 
T(NR*1.NC*5>=-T(NR*1,NC*2) 

I NVFP  f  1  MATRIX 
CONI  I  NUT 

CAI  I  MINV  <  MS  1  /I  .  I,R) 

R(  TORN 
TNP 


1 


! 
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t 


I'MlNV 


Ml  NV 

SlIRKOllTINI  M  I  N  V  (NM.A.II) 

OimNSlON  A(45,45)»li(45»45) 

on  9001  1=1 ,NM 
no  9001  J=1.NM 
'»(  !  ,  J  )  =  0  .  U 

IF  ( t.EU.J)  ll<|,J)  =  1.0 
9001  CONTINUE 

pps=o.oooofti»ni 

00  9015  1=1, NM 
<=! 

IF  (I-NM)  9|i?1 ,9007,9021 
9021  IF  <A<l.l>-FPS>  9005,9006.900/ 

9005  IF  (-A(  I,  I  )-PP5>  9006,91106,9007 

9006  <  =  K  ♦  1 

00  90?3  J=i , NM 

U(  | ,  J)  =  U(  I  ,  J>  »II(K,  J) 

9023  A  (  I ,  J  )  =  A  (  I  .  .1  >  ♦  A  ( K  ,  .1 ) 

00  10  9021 

9007  HI V=A( 1,1) 

no  90119  J=I  ,  NM 

>l(  I,  J)  =  U<  I  ,  J  )  / 1)  I  V 

9009  A<  I, J ) = A <  1, J)/HI V 

no  9015  MM=1 , NM 

0  E  L 1  =  A  (  M  M ,  I  ) 

IF  ( /iHS  I  DEL  T ) -EPS  )  9015,9015,9016 
9016  IF  (MM-I)  9111  0,9015,9010 

9010  1)0  9011  J  =  1,NM 

■  KMM,  J)sU(MM,.l)-ll(  I,  J)*DEl! 

9011  A  (MM.  J  )  =  A  t  MM  ,  .1  )-A  (  I .  J  >  *  DEI.  T 
91115  CONI  INUE 

•10  9033  1=1. NM 
00  9033  J=1.NM 
9033  A ( | , J )  =  U ( I »  J ) 

•TFTt'RN 

END 
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PART  VI 


SECTION  B5.0 


FtfJW  CHARTS  FOR  SUPERSONIC  AIC 
COMPUTER  PROGRAM 
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